#!perl -lp $_=$1if'kanazawaÃkobeãkofuÀmaebashiämatsueÅmatsuyama­mito§moriokaùnagoya¢naha¾otsu®sapporoÕsendaiµshinjukuëtakamatsuátsuÈutsunomiya´yokohamaî'=~('(\w+)'.~chr(($_&7x9|2x9)/64%94))