Select Code to Download

while(<>) { 
  print "yes\n" if /(y|yes)/i;
}

foreach (qw( YES YE Y yes ye y ys es s e Yeeessseeseeesssssess)){
  print "$_ = yes\n" if /^(y|yes)$/i;
}