#!/usr/bin/perl -w

    use strict;

    my @search;
    my $query = qr/perl/;

    open FILE, "file"  or die "Error message here: $!";

    while (<FILE>) {
        push @search, $_ if /$query/;
    }

    chomp @search; # If required

    close(FILE);