If you just looking for a plain string not a regex, then it should be quicker to use index

while (my $line = <$fh> ) {
    if (index($line,$pattern) != -1 ) {
        ...
    }
}
[download]