Select Code to Download

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

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

  my @karatSplit = ...
}