use open ':locale';
use Encode;
use strict;

my $locEnc;
for (PerlIO::get_layers(STDOUT)){
  if (/encoding\((.*)\)/ || /(utf8)/ ){
    $locEnc=$1;last;
  }
}
print "Locale encoding: $locEnc\n";

for (@ARGV) {
  $_=Encode::decode($locEnc,$_)
}

my $i=1;
for (@ARGV) {
  print $i++,"  '",$_,"'(",length($_),")\n";
}