> 'ls' -1|tail -6 |perl -CSD -e'use 5.14.0; while (<>) {
print
}
print "opening dir\n";
opendir(my $dh, ".");
my @files =  grep { /^[^.]/ } readdir $dh;
my @sfiles=sort @files;
my $start= @sfiles-6;
for (my $i=$start; $i<@sfiles;++$i) {
        printf "%s\n", ${sfiles[$i]};
}
'
zwadobef.ttf
Ü-chan.ttf
&#12415;&#12363;&#12385;&#12419;&#12435;-p.ttf
&#12415;&#12363;&#12385;&#12419;&#12435;-pb.ttf
&#12415;&#12363;&#12385;&#12419;&#12435;-ps.ttf
&#12415;&#12363;&#12385;&#12419;&#12435;.ttf
opening dir
zwadobef.ttf
Ã&#156;-chan.ttf
ã�¿ã�&#139;ã�¡ã&#130;&#131;ã&#130;&#147;-p.ttf
ã�¿ã�&#139;ã�¡ã&#130;&#131;ã&#130;&#147;-pb.ttf
ã�¿ã�&#139;ã�¡ã&#130;&#131;ã&#130;&#147;-ps.ttf
ã�¿ã�&#139;ã�¡ã&#130;&#131;ã&#130;&#147;.ttf