use strict;

my $stuff = <<EOF;
JUNK
JUNK

NAME NAME
PANE

THIS IS OTHER JUNK

BAH
EOF


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

##</code><code>##

abcddeds.    name name pane pane date

##</code><code>##

use strict;

my $string = ' abcddeds.    name name PANE pane date';

if ($string =~ /(\w+       #one or more word chars (alphanumeric plus _ matched)
                 \s+       #at least one space
                 \w+       #one or more word chars
                )          #close capturing parens
                \s+        #another space
               pane        #matches pane
               /ix         #"i" makes it case insensitive x makes it so
                           #i can add comments
 ) { print $1; }