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