use strict;
use warnings;


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

##</code><code>##

use strict;
use warnings;
print "What is the conference hexidecimal name?\nInput Name:";
my $Conf_Hex = <>;
chomp ($Conf_Hex); 

 while ( my $polling = <$textfile>) { 
	if ( $polling =~ m/VtO<.+> VtTp<(?!0)(\d{1,3})>.+MCfID<0x$Conf_Hex>/ ) {
  print "$polling\n"; 
}
}
{
  close $textfile;
  }

##</code><code>##

print "What is the Conference IDX?";
my $num = <>;
chomp ($num);
exit unless defined $num;
$num = oct($num) if $num =~ /^0/; 
printf = ("%x\n", $num) ;