%w{yn kofu me tsu sn matsue tky shinjuku tg utsunomiya sig otsu on naha mg sendai kn yokohama kw takamatsu is kanazawa iw morioka ib mito hy kobe hk sapporo gm maebashi e matsuyama ac nagoya}.each_slice(2){|k,l|$_=~(eval"/^#{k.insert 1,'.*'}/")&&$_=l}|puts($_)while gets
Note that non-ascii characters in the above source code will be escaped (such as \x9f).