elegant solution

[Selector, Lev Y]

Hello,

What would be a more elegant (short) way to express the following:

while ($choice = uc <>) {
  $choice =~ s/(^\s+|\s+$)//g;
  $choice = 'Y', last if ($choice =~ /^Y?$/);
  $choice = 'N', last if ($choice =~ /^N$/ );
}

As you see, it is an infinite loop which wouldn't let you out unless you do:

'y','Y',<ENTER>  - 'Y'
'n','N'          - 'N'

  
Warmest Regards, 
Lev Selector