Select Code to Download

foreach $unicode (keys %from) {
    if (defined($to{$unicode})) {
...
        }
    }
}

    tr [\200-\377]
       [\000-\177];             # delete 8th bit

foreach $unicode (keys %from) {
    if (defined($to{$unicode})) {
...

    }
}