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