Help for this page

Select Code to Download

Select or download this

if( $logfile =~ /.+\.xml/){
  next unless '-B $logfile';
  open(XMLFILE, '<:encoding(utf16)', $logfile)or die "Can't Open:$!";
...
  }# While XML loop
}#if XML loop
print @txtfile;#for debug only