chomp( my $word = lc $_ );
if $word eq 'y' or $word eq 'yes';

##</code><code>##

if /^y(?:es)?$/i;