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

##</code><code>##

foreach my $line (@::FileLines) {
  next unless grep(...);

  my @karatSplit = ...
}