chomp needed.

I wouldn't necessarily call

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

simpler than

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

Maybe it's more complex to write, but surely it's simpler to read.