unless ($str =~ /odd.*?weird/){
  print "hit!\n";
}