Select Code to Download

my (@search);
...
        chomp($lines);
        push(@search, $lines) if grep { /$query/ } $lines;
     }

if(@search){
   print "Hey...I found something\n"
}