chomp( my $pat = <DATA> );

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

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