From the doc:

After writing several REP (Read-Eval-Print) loops in Perl, I found myself wishing for something a little more convenient than starting with:

  while(1) {
      my $line = <STDIN>;
      last unless defined $line;

      chomp $line;
      if ($line =~ /^...
[download]

TheStudent

use strict;
use warnings;

my $word = getInp('Enter a word : ', qr/^[a-z]+$/i);
my $anything = getInp('Enter anything : ');

sub getInp {
    print $_[0];
    do {
        $_ = <STDIN>; chomp;
    } while ($_[1] && $_ !~ $_[1]);
    return $_;
}
[download]

Damian