Bisher habe ich die Daten nur gelesen und wieder insertet.
Nun versuchte ich sie umzusetzen mit dieser Funktion, was auch nicht funktioniert hat:

sub encodeky2 ()
{
my $ret = $_[0];
my $Sonderzeichen = "";
# Sonderzeichen mit ASCII-Code 128 bis 255
for my $i (128..255)
{ $Sonderzeichen .= chr($i); }

# Alle diese Zeichen durch "%xx" ersetzen, wobei xx der Hex-Code des jeweiligen Zeichens ist !
$ret =~ s/([$Sonderzeichen])/"%".uc(sprintf("%0x",ord($1)))/eig;

return $ret;
};