in reply to while loop almost correct

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 
  }
);

[download]

Replies are listed 'Best First'.
Re^2: while loop almost correct
by irvson (Sexton) on Nov 17, 2009 at 23:32 UTC

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

[reply]

In Section Seekers of Perl Wisdom