Select Code to Download

perl -CS -e 'print chr(0xc3),chr(0xa9)' | od -txC

...

0000000    c3  83  c2  a9                                             
+   
0000004

use Encode;

...
@datafiles = grep { -f }, readdir( D );
$_ = decode( 'utf8', $_ ) for ( @datafiles );