Select Code to Download

use strict;

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

abcddeds.    name name pane pane date

use strict;

...
               /ix         #"i" makes it case insensitive x makes it s
+o
                           #i can add comments
 ) { print $1; }