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