foreach (@_) {
# tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/; # B1.002:1982
tr/^\~]}\|[{@\`/ÈèÆæðй©¾®/; # Crolist croascii
+ # Crolist alternative encoding
+ s/ÏC/È/g;
+ s/Ïc/è/g;
+ s/ÂC/Æ/g;
+ s/Âc/æ/g;
+ #s/??/Ð/g;
+ s/ò/ð/g;
+ s/ÏS/©/g;
+ s/Ïs/¹/g;
+ s/ÏZ/®/g;
+ s/Ïz/¾/g;
$out .= $_;
}
return $out;