unless ($x =~ m/^Something Else/){
      print "~~Something Else~~", $x, "\n";
      }