#!/usr/bin/perl -pi
s|^(|$1-TW">|;
s/(\.zh)(?=\.(?:gif|jpg|png))/$1-tw/g;
s|^(¤¤¤å \(Big5\))(?= )|$1|;
s/¾Þ§@¨t²Î/§@·~¨t²Î/g;
s/µ¡¤f¨t²Î/µøµ¡¨t²Î/g;
s/ªA°È¾¹/¦øªA¾¹/g;
s/³n¥ó¥](?!¸Ë)/®M¥ó/g;
s/¶l(»¼|¥ó)¦Cªí/³q«H½×¾Â/g;
s/Ãè¹³¯¸ÂI/¬M®g¯¸¥x/g;
s/Ãè¹³((ºô)?¯¸)/¬M®g$1/g;
s/ºôµ¸¹ï¶H¼Ò«¬Àô¹Ò/ºôµ¸ª«¥ó¼Ò«¬Àô¹Ò/g;
s/«æ±Ï½L/«æ±ÏºÏºÐ/g;
s/¤Þ¾É½L/±Ò°ÊºÏºÐ/g;
s/¤å¥»¤å¥ó/¯Â¤å¦rÀÉ/g;
s/µo¥¬¨t²Î/µo¦æ®M¥ó/g;
s/Åé¨tµ²ºc/¬[ºc/g;
s/¸Uºûºô/¥þ²y¸ê°Tºô/g;
s/¤¬Ápºô/ºô»Úºô¸ô/g;
# while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)¡§/$1¡u/) {}
# while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)¡¨/$1¡v/) {}
while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*(³n|µw))¥ó/$1Åé/) {}
while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*(³n|µw|¥ú|ºÏ))½L/$1ºÐ/) {}
while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)¤º®Ö/$1®Ö¤ß/) {}
while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)¯¸ÂI/$1¯¸¥x/) {}
while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)ºôµ¸/$1ºô¸ô/) {}
# ¥Í©È¦³¤Hªº¹q¸£Åª¤£¨ì¡uùØ¡v¦r¡C
while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)ùØ/$1¸Ì/) {}