my $in;
{
print "Input 'foo': "; chomp($in=<STDIN>); redo unless /^foo$/;
}