Select Code to Download

2011-12-21 00:24:20.422318%%0f-1f-15%%TRF%% Received event <lmevtPORT_
+DIGIT_PATTERN_MATCH> cc<lmccSTATE_CHANGED> R<otLIF_PORT:0x4E06016> D<
+otPARTY_OBJECT:0x80B4D> T<otUNKNOWN:0x0> SRC<otLIF_PORT:0x4E06016> Ad
+dr<01-15-0c>
2011-12-21 00:24:20.422888%%0f-1f-16%%TRF%% Received event <paevDIGIT_
+PATTERN_RECEIVED> cc<0x0> R<otPARTY_OBJECT:0x80B4D> D<otCC_PARTY_OBJE
+CT:0x31A9A> T<otUNKNOWN:0x0> SRC<otPARTY_OBJECT:0x80B4D> Addr
2011-12-21 00:24:20.423024%%0f-1f-16%%DB1%% ccParty<0x31A9A> Port<1-14
+-7-23> DTMF<4>
2011-12-21 00:24:20.423138%%0f-1f-16%%DB2%% ccParty<0x31A9A> next CF<2
+1>
2011-12-21 00:24:20.423229%%0f-1f-16%%DB2%% ccParty<0x31A9A> CF<21> I<
+0>

my $slurp;
    local $/ = undef;
    open my $textfile, '<', 'filename.txt' or die $!;
...
while($line = m/ccParty<(.+)> DTMF<(.+)>/)
  print "$line" if $line =~ /_NN/;
}