＞602
$txt =~ s/\弓\道\部/\武\道\部/g;
とかやっちゃうとか。今手元でperlつかえないからアレですが。

＞603
ワークグループが違うとか。今手元にＮＴがないからアレですが。