undef $/;
open INFILE, "<$file";
my @filecontents = <INFILE>;
close INFILE;
foreach my $filepieces (@filecontents) {
  if ($filepieces =~ /SOME_REGEX/smg) {
    # do something w/ match
  }