7 lines
134 B
Perl
7 lines
134 B
Perl
s/409/804/;
|
|
s/c09/804/i;
|
|
s/4E4/3A8/i;
|
|
s/SUBLANG_ENGLISH_US/SUBLANG_CHINESE_SIMPLIFIED/;
|
|
s/LANG_ENGLISH/LANG_CHINESE/;
|
|
print $_;
|