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