Select Code to Download

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

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