Select Code to Download

    push(@search, $line) if grep { /$query/ } $line;

    push @search, $line if $line =~ m/$query/;

    push @search, $line if $line =~ m/\Q$query/;

use strict;
use warnings;
...
    push @search, $line if $line =~ m/\Q$query/;
}
close(FILE) or die;

print "We found...\n", @search ? join("\n", @search) : "nowt\n";