s/%([0-9a-f]{2}/chr(hex($1))/egi;

if ( /[\x80-\xff]/ ) {
    push @new_words, encode( "iso-8859-1", decode_utf8( $_ ));
}
else {
    push @new_words, $_;
}