open(FILE, "$filename") or die "Cant open $filename\n"; my @patternMatchArray = grep { /$myPattern/ } ; close(FILE);