s/409/411/;
s/c09/411/i;
s/4E4/3A4/i;
s/SUBLANG_ENGLISH_US/SUBLANG_DEFAULT/;
s/LANG_ENGLISH/LANG_JAPANESE/;
print $_;