Fix garbled encoding (latin1 reencoded as utf8)

fix_encoding.pl

#!/usr/bin/perl
use strict;
use Encode;

binmode( STDIN,  ':utf8' );
binmode( STDOUT, ':latin1' );

while (<>) {
        print Encode::decode('utf8', $_);
}