my $buffer = undef;
while (<YOURFILE>) {
  $buffer .= $_;
}
if ($buffer =~ /your regex/s) {
  # do stuff with $1 ... etc.
}