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

# outputs:

0000000    c3  83  c2  a9                                                
0000004

##</code><code>##

use Encode;

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