Select Code to Download

open FILE, '<', $filename or die "Cannot open $filename: $!\n";
my @patternMatchArray;
...
   push @patternMatchArray, $_ if /$myPattern/;
}
close FILE;