7 lines
124 B
Perl
7 lines
124 B
Perl
s/409/411/;
|
|
s/c09/411/i;
|
|
s/4E4/3A4/i;
|
|
s/SUBLANG_ENGLISH_US/SUBLANG_DEFAULT/;
|
|
s/LANG_ENGLISH/LANG_JAPANESE/;
|
|
print $_;
|