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> Addr<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_OBJECT: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<21>
2011-12-21 00:24:20.423229%%0f-1f-16%%DB2%% ccParty<0x31A9A> CF<21> I<0>


##</code><code>##

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/;
}