Select Code to Download

my %file2;
open my $file2, '<', shift or die;
while ( my $line = <$file2> ) {
...
        print $line and last SEARCH if index $line, $search > -1; # Ed
+it: GotToBTru pointed out I forgot "index"
    }
}