my $slurp;
    local $/ = undef;
    open my $textfile, '<', 'filename.txt' or die $!;
    $slurp = <$textfile>;
    close $textfile;
}

while($line = m/ccParty<(.+)> DTMF<(.+)>/)
  print "$line" if $line =~ /_NN/;
}