#!perl -plaF
$_={hai,sapporo,ie,morioka,mgi,sendai,ga,maebashi,tig,utsunomiya,iak,mito,to,shinjuku,kga,yokohama,yna,kofu,ai,nagoya,'m',tsu,ika,kanazawa,sa,otsu,ho,kobe,ee,matsuyama,kwa,takamatsu,san,matsue,oaw,naha}->{join'',@F[0,4,5]}||$_
Note that non-ascii characters in the above source code will be escaped (such as \x9f).