for (keys %iso8859){
    $string=~s/$_/$iso8859{$_}/gi;
}
print $string;
[download]

$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print
[download]