in reply to use locale behavior depends on charset of locale?

Check 
print join( ':', PerlIO::get_layers(STDIN)), "\n";

[download]

In Section Seekers of Perl Wisdom