> if ($ans =~ /^y$/i)

Other people pointed the "if ( lc($ans) eq 'y' )" solution
and it should go _much_ faster then using a regex ..

Don't try to push regexes whenever you can - eq, index, substr
may do a lot for you.


Reply via email to