chomp( my $pat = <DATA> );
my $re = qr/$pat/;

while (<DATA>) {
   print if /$re/;
}

__DATA__
(?-xism:(?<NASPRE>NAS\-IP\-Address\=))
...