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 $_;
}