use strict;

open my $fh, "file.txt" or die "Error opening file.txt: $!";
my @lines = <$fh>;
my @matches = grep /pattern/, @lines;