#!perl -p
%d=qw(ic nagoya eh matsuyama mm maebashi ho sapporo hy kobe bar mito is kanazawa iw morioka kaga takamatsu anag yokohama ie tsu yag sendai oki naha shig otsu ne matsue toc utsunomiya oky shinjuku nas kofu);for$i(keys%d){s/.*$i.*/$d{$i}/}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).