#!/usr/bin/perl -pi
s|^(|$1-CN">|;
s|^(|$1=GB2312">|;
s/(\.zh)(?=\.(?:gif|jpg|png))/$1-cn/g;
s|^(中文 \(GB\))(?= )|$1|;
# 先把全部「著」字转为「着」……
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)著/$1着/) {}
# 然后再在适当的词语，把「着」字转回「著」……
# 著作、著者、著名、著述、著重、著书
# 所著、土著、显著、编著
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*(?:所|土|显|编))着/$1著/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)着(?=作|者|名|述|重|书)/$1著/) {}
# s/\\>/$1/g;
# s/\\>/文档/g;
# s/\\>/扩展/g;
s/软件套件/软件包/g; s/套件/软件包/g;
s/(?:启|起)动磁碟/引导盘/g;
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)—/$1─/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)「/$1“/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)」/$1”/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)『/$1“/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)』/$1”/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)相容/$1兼容/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)电脑/$1计算机/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)模组/$1模块/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)支援/$1支持/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)字型/$1字体/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*(软|硬))体/$1件/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*(软|硬|光|磁|Zip ))碟/$1盘/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)以太(?=网)/$1乙太/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)阐道/$1网关/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)站台/$1站点/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)(?