use strict;

my $stuff = <<EOF;
JUNK
JUNK

NAME NAME
PANE

THIS IS OTHER JUNK

BAH
EOF


if ($stuff =~ m/(\w+ \w+)\nPANE/) {
    print $1;
}  ;