Select Code to Download

<?xml version="1.0" encoding="UTF-8" ?> 
<config>
 <srcdir>d:\temp\source\test2</srcdir>
 <dstdir>d:\temp\source\test5</dstdir>
</config>

#!d:\perl\bin\perl.exe -w
use File::Find;
...
  print "\$_ = $_\n";
}

D:\temp\source>newcopy6.pl
$srcdir: d:\temp\source\test2
...
$_ = ├╢a
$_ = .
$_ = .

$srcdir: d:\temp\source\test2
is NOT utf8
...
$_ = öa
$_ = .
$_ = .

$srcdir: d:\temp\source\test2
is NOT utf8
...
$_ = 硍
$_ = .
$_ = .

sub fixutf8 {
  for (@_) {
...

  }
}

$srcdir: d:\temp\source\test2
is NOT utf8
...
$_=.#$_=. is NOT utf8
$_ = .