Select Code to Download

  my %respell = ( 'ze' => "\x{017e}e", ... );

use Unicode::Normalize;

...
    $respell{$ascii_word} = $word;
}
close INFO;

open( INPUT, "<:utf8", "input" ) or die "input: $!";
open( OUTPUT, ">:utf8", "respelled" ) or die "respelled: $!";
...
    }
    print OUTPUT $outstr;
}