foreach my $line (@::FileLines) {
   unless(grep(/$pattern/,$line)){
         my @karatSplit = split('\^', $line);
           print "$karatSplit[1]\n";
         }
  }