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

##</code><code>##

if ($x->[someIndex] !~ m/^Something Else/){}