If I would need to do this in Perl 4, I would take the right bits out of NexTrieve::UTF8 (especially the definition of the "@iso88591" array) and use the is88591 function:

sub iso88591 {
 $_[0] =~ s#([\x80-\xFF])#$iso88591[ord($1)-0x80]#sge;
} #iso88591
[download]

thus:

iso88591( $key );
[download]

There are probably other modules out there that would work under Perl 4, but I'm familiar with this particular module (because I wrote the script that generates it ;-).

Liz