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