my $printable = decode('cp37', $input);

##</code><code>##

my $printable = decode('cp1047', $input);