in reply to Re: Perl = Greek to me
in thread Perl = Greek to me

A few things: I'd do something like (untested, but complete program):
@ARGV = "filename.txt"; while (<>) { print if /ccParty<.+>DTMF<.+>/ && /_NN/; }
Or rather, forget about Perl, and just use a shell one liner (again, untested):
$ grep 'ccParty<..*>DTMF<..*>' filename.txt | grep _NN
I am assuming your regexp is indeed what you want, I haven't checked whether it matches your description.