my $file; { local $/; $file = <>; }   # Slurp file.
while ($file =~ /.../g) {
   push @matches, ...;
}