5 |
my $out = ""; |
my $out = ""; |
6 |
foreach (@_) { |
foreach (@_) { |
7 |
# tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/; # B1.002:1982 |
# tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/; # B1.002:1982 |
8 |
tr/^\~]}\|[{@\`/ÈèÆæðй©¾®/; # Crolist croascii |
tr/^~]}\\|[{@`/ÈèÆæÐ𩹮¾/; # Crolist croascii |
9 |
# Crolist alternative encoding |
# Crolist alternative encoding |
10 |
s/ÏC/È/g; |
s/ÏC/È/g; |
11 |
s/Ïc/è/g; |
s/Ïc/è/g; |
12 |
s/ÂC/Æ/g; |
s/ÂC/Æ/g; |
13 |
s/Âc/æ/g; |
s/Âc/æ/g; |
|
|
|
|
s/ÏS/©/g; |
|
|
s/Ïs/¹/g; |
|
14 |
#s/??/Ð/g; |
#s/??/Ð/g; |
15 |
s/ò/ð/g; |
s/ò/ð/g; |
16 |
|
s/ÏS/©/g; |
17 |
|
s/Ïs/¹/g; |
18 |
|
s/ÏZ/®/g; |
19 |
|
s/Ïz/¾/g; |
20 |
$out .= $_; |
$out .= $_; |
21 |
} |
} |
22 |
return $out; |
return $out; |