Select Code to Download

use strict;
use Encode;
...

binmode *STDOUT, ':encoding(UTF-8)';
print "$content\n";

    piconv -t UTF-8 thai.txt > thai_fixed.txt