{
 open my $textfile, '<', 'C:\Users\msmolik\Desktop\PERL test stuff\testfile.log' or die $!;
   
 while ( my $line =~ m/ccParty<(.+)> DTMF<(.+)>/ ) {
  print "$line\n"; 
}
}
{
  close $textfile;
  }


##</code><code>##

C:\Users\msmolik\Desktop\PERL test stuff>testingperl.pl

C:\Users\msmolik\Desktop\PERL test stuff> 

##</code><code>##

2011-12-21 00:23:06.904520%%0f-1f-16%%DB1%% ccParty<0x31A99> Port<1-14-7-22> DTMF<4>
2011-12-21 00:21:57.729881%%0f-1f-15%%TRF%% Received event <lmevtVOICE_PATH_MODE_CHANGE> cc<lmccSTATE_CHANGED> R<otLIF_PORT:0x4107003> D<otPARTY_OBJECT:0x80B4B> T<otUNKNOWN:0x0> SRC<otLIF_PORT:0x4107003> Addr<01-15-0c>
2011-12-21 00:23:06.904667%%0f-1f-16%%DB2%% ccParty<0x31A99> next CF<21>
2011-12-21 00:23:06.904765%%0f-1f-16%%DB2%% ccParty<0x31A99> CF<21> I<0>
2011-12-21 00:24:20.423024%%0f-1f-16%%DB1%% ccParty<0x31A9A> Port<1-14-7-23> DTMF<4>