my $word = lc $_;
print "yes\n" if $word eq 'y' or $word eq 'yes';