$|=1; # So it works in the IDE

@s = qw /Ted iPad LMU Tod iPod IO/;

foreach $e (@s){
  if ($e =~ /[A-Z][^Oo]/){       # Whatch out! "TOD" would match!
    print "$e matches!\n";
  }
  else {
    print "$e doesn't match!\n"
  }
}
