#!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}/}