Select Code to Download

    $s =~ s/\xc4\x80/\x{100}/g;
    $s =~ s/\xc4\x81/\x{101}/g;
    $s =~ s/\xc4\x82/\x{102}/g;
...
    $s =~ s/\xc4\x8b/\x{10B}/g;
    $s =~ s/\xc4\x8c/\x{10C}/g;
    $s =~ s/\xc4\x8d/\x{10D}/g;

use Encode qw(encode decode);
$answer = encode("UCS-2BE", $answer);