$\=$/;chomp,print((x24nagoya50matsuyama108maebashi112sapporo103kobe47mito59kanazawa134morioka217takamatsu211yokohama25tsu33sendai129naha40otsu81matsue64utsunomiya143shinjuku3kofu=~/\D@{[unpack("%16s*",$_)%252]}(\D+)/)[0]||$_)for<>;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).