Re: while loop almost correct

[Anonymous Monk]

You may want to look at IO::Prompt.

use IO::Prompt;

my $reply = prompt("Pick a letter between a and d.\n",
  -r => { 
    "Pick a letter between a and d -- or else!\n" => qr/^[a-d]$/i 
  }
);

[irvson]

Thanks. Something else to learn. That's why I'm here.