★100725 yahoo「三木和彦ltokyo.cool.ne.jp/dostore」ﾚｽ転載ﾏﾙﾁ報告

if($ken eq '126068') {return 1;} #北海道
if($ken eq '218127') {return 1;} #北海道
if($ken eq '219041') {return 1;} #北海道
if($ken eq '219168') {return 1;} #北海道
if($ken eq '219181') {return 1;} #北海道
if($ken eq '221023') {return 1;} #北海道
if($ken eq '221030') {return 1;} #北海道
if($ken eq '221032') {return 1;} #北海道
if($ken eq '221036') {return 1;} #北海道
if($ken eq '221046') {return 1;} #北海道
if($ken eq '221062') {return 1;} #北海道

if($ken eq '221029') {return 2;} #青森
if($ken eq '221054') {return 2;} #青森
if($ken eq '219053') {return 3;} #岩手
if($ken eq '219173') {return 3;} #岩手
if($ken eq '221033') {return 3;} #岩手
if($ken eq '221039') {return 3;} #岩手
if($ken eq '221053') {return 3;} #岩手
if($ken eq '221054') {return 3;} #岩手
if($ken eq '126098') {return 4;} #宮城
if($ken eq '218112') {return 4;} #宮城
if($ken eq '219057') {return 4;} #宮城・秋田
if($ken eq '219171') {return 4;} #宮城
if($ken eq '219208') {return 4;} #宮城
if($ken eq '221020') {return 4;} #宮城
if($ken eq '221026') {return 4;} #宮城
if($ken eq '221105') {return 4;} #秋田
if($ken eq '221058') {return 5;} #宮城
if($ken eq '219051') {return 7;} #福島・宮城
if($ken eq '219057') {return 7;} #福島
if($ken eq '219172') {return 7;} #福島
if($ken eq '221044') {return 7;} #福島

if($ken eq '060100') {return 8;} #茨城
if($ken eq '218137') {return 8;} #茨城
if($ken eq '219006') {return 8;} #茨城
if($ken eq '220005') {return 8;} #茨城
if($ken eq '220006') {return 8;} #茨城
if($ken eq '221040') {return 8;} #茨城
if($ken eq '221043') {return 8;} #茨城
if($ken eq '060091') {return 9;} #栃木
if($ken eq '126096') {return 9;} #栃木
if($ken eq '219055') {return 9;} #栃木
if($ken eq '219056') {return 9;} #栃木
if($ken eq '219192') {return 9;} #栃木
if($ken eq '220004') {return 9;} #栃木
if($ken eq '221027') {return 9;} #栃木
if($ken eq '221031') {return 9;} #栃木
if($ken eq '220003') {return 11;} #群馬
if($ken eq '220007') {return 11;} #群馬
if($ken eq '060086') {return 11;} #埼玉
if($ken eq '218128') {return 11;} #埼玉
if($ken eq '218118') {return 11;} #埼玉
if($ken eq '218119') {return 11;} #埼玉
if($ken eq '218177') {return 11;} #埼玉
if($ken eq '219012') {return 11;} #埼玉
if($ken eq '219013') {return 11;} #埼玉
if($ken eq '219014') {return 11;} #埼玉
if($ken eq '219058') {return 11;} #埼玉・群馬
if($ken eq '219181') {return 11;} #埼玉
if($ken eq '219182') {return 11;} #埼玉
if($ken eq '219183') {return 11;} #埼玉
if($ken eq '219193') {return 11;} #埼玉
if($ken eq '219194') {return 11;} #埼玉
if($ken eq '219199') {return 11;} #埼玉
if($ken eq '219201') {return 11;} #埼玉
if($ken eq '219214') {return 11;} #埼玉
if($ken eq '219200') {return 11;} #埼玉
if($ken eq '221018') {return 11;} #埼玉
if($ken eq '220001') {return 11;} #埼玉

if($ken eq '060088') {return 12;} #千葉
if($ken eq '060089') {return 12;} #千葉
if($ken eq '060101') {return 12;} #千葉
if($ken eq '126064') {return 12;} #千葉
if($ken eq '126112') {return 12;} #千葉
if($ken eq '218135') {return 12;} #千葉
if($ken eq '218178') {return 12;} #千葉
if($ken eq '218180') {return 12;} #千葉
if($ken eq '219010') {return 12;} #千葉
if($ken eq '219011') {return 12;} #千葉
if($ken eq '219016') {return 12;} #千葉
if($ken eq '219174') {return 12;} #千葉
if($ken eq '219176') {return 12;} #千葉
if($ken eq '219189') {return 12;} #千葉
if($ken eq '219190') {return 12;} #千葉
if($ken eq '219191') {return 12;} #千葉
if($ken eq '221022') {return 12;} #千葉
if($ken eq '221025') {return 12;} #千葉
if($ken eq '221038') {return 12;} #千葉
if($ken eq '221056') {return 12;} #千葉
if($ken eq '060076') {return 13;} #東京
if($ken eq '060081') {return 13;} #東京
if($ken eq '060085') {return 13;} #東京
if($ken eq '126065') {return 13;} #東京
if($ken eq '126080') {return 13;} #東京
if($ken eq '218130') {return 13;} #東京
if($ken eq '218132') {return 13;} #東京
if($ken eq '218133') {return 13;} #東京
if($ken eq '218134') {return 13;} #東京
if($ken eq '218138') {return 13;} #東京
if($ken eq '218176') {return 13;} #東京
if($ken eq '219000') {return 13;} #東京
if($ken eq '219001') {return 13;} #東京
if($ken eq '219002') {return 13;} #東京
if($ken eq '219003') {return 13;} #東京
if($ken eq '219004') {return 13;} #東京
if($ken eq '219005') {return 13;} #東京
if($ken eq '219007') {return 13;} #東京
if($ken eq '219008') {return 13;} #東京
if($ken eq '219009') {return 13;} #東京
if($ken eq '219011') {return 13;} #東京
if($ken eq '219015') {return 13;} #東京
if($ken eq '219018') {return 13;} #東京
if($ken eq '219017') {return 13;} #東京
if($ken eq '219019') {return 13;} #東京
if($ken eq '219036') {return 13;} #東京
if($ken eq '219037') {return 13;} #東京
if($ken eq '219169') {return 13;} #東京
if($ken eq '219176') {return 13;} #東京
if($ken eq '219184') {return 13;} #東京
if($ken eq '219185') {return 13;} #東京
if($ken eq '219186') {return 13;} #東京
if($ken eq '219187') {return 13;} #東京
if($ken eq '219188') {return 13;} #東京
if($ken eq '219195') {return 13;} #東京
if($ken eq '219196') {return 13;} #東京
if($ken eq '219197') {return 13;} #東京
if($ken eq '219198') {return 13;} #東京
if($ken eq '219215') {return 13;} #東京
if($ken eq '219218') {return 13;} #東京
if($ken eq '221016') {return 13;} #東京
if($ken eq '221021') {return 13;} #東京
if($ken eq '221028') {return 13;} #東京
if($ken eq '221034') {return 13;} #東京
if($ken eq '221041') {return 13;} #東京
if($ken eq '221106') {return 13;} #東京
if($ken eq '221108') {return 13;} #東京

if($ken eq '060082') {return 14;} #神奈川
if($ken eq '060083') {return 14;} #神奈川
if($ken eq '126067') {return 14;} #神奈川
if($ken eq '219204') {return 14;} #神奈川
if($ken eq '218139') {return 14;} #神奈川
if($ken eq '218140') {return 14;} #神奈川
if($ken eq '218141') {return 14;} #神奈川
if($ken eq '218144') {return 14;} #神奈川
if($ken eq '219035') {return 14;} #神奈川
if($ken eq '219038') {return 14;} #神奈川
if($ken eq '219039') {return 14;} #神奈川
if($ken eq '219042') {return 14;} #神奈川
if($ken eq '219043') {return 14;} #神奈川
if($ken eq '219044') {return 14;} #神奈川
if($ken eq '219045') {return 14;} #神奈川
if($ken eq '219046') {return 14;} #神奈川
if($ken eq '219052') {return 14;} #神奈川
if($ken eq '219175') {return 14;} #神奈川
if($ken eq '219177') {return 14;} #神奈川
if($ken eq '219178') {return 14;} #神奈川
if($ken eq '219179') {return 14;} #神奈川
if($ken eq '219180') {return 14;} #神奈川
if($ken eq '219202') {return 14;} #神奈川
if($ken eq '219205') {return 14;} #神奈川
if($ken eq '219206') {return 13;} #神奈川・東京
if($ken eq '219207') {return 14;} #神奈川
if($ken eq '221017') {return 14;} #神奈川
if($ken eq '221019') {return 14;} #神奈川
if($ken eq '221037') {return 14;} #神奈川

if($ken eq '219040') {return 15;} #新潟
if($ken eq '219058') {return 15;} #新潟
if($ken eq '220008') {return 15;} #新潟
if($ken eq '221052') {return 15;} #新潟
if($ken eq '221060') {return 15;} #新潟
if($ken eq '220021') {return 16;} #富山
if($ken eq '220052') {return 16;} #富山
if($ken eq '219213') {return 17;} #石川
if($ken eq '221071') {return 17;} #石川
if($ken eq '221081') {return 17;} #石川
if($ken eq '221093') {return 17;} #石川
if($ken eq '221095') {return 17;} #石川
if($ken eq '219061') {return 18;} #福井
if($ken eq '220024') {return 18;} #福井
if($ken eq '220010') {return 19;} #山梨・静岡
if($ken eq '220009') {return 20;} #長野
if($ken eq '126069') {return 22;} #静岡
if($ken eq '218131') {return 22;} #静岡
if($ken eq '218143') {return 22;} #静岡
if($ken eq '219047') {return 22;} #静岡
if($ken eq '219048') {return 22;} #静岡
if($ken eq '220023') {return 22;} #静岡・岐阜
if($ken eq '220000') {return 22;} #静岡
if($ken eq '220002') {return 22;} #静岡
if($ken eq '221024') {return 22;} #静岡・三重

if($ken eq '060096') {return 23;} #岐阜
if($ken eq '220031') {return 23;} #岐阜
if($ken eq '221035') {return 23;} #岐阜
if($ken eq '221045') {return 23;} #岐阜
if($ken eq '218122') {return 23;} #愛知
if($ken eq '218142') {return 23;} #愛知
if($ken eq '218179') {return 23;} #愛知
if($ken eq '219032') {return 23;} #愛知
if($ken eq '219033') {return 23;} #愛知
if($ken eq '219049') {return 23;} #愛知
if($ken eq '219050') {return 23;} #愛知・三重
if($ken eq '219170') {return 23;} #愛知
if($ken eq '219203') {return 23;} #愛知
if($ken eq '219209') {return 23;} #愛知
if($ken eq '219210') {return 23;} #愛知
if($ken eq '220028') {return 23;} #愛知
if($ken eq '220029') {return 23;} #愛知
if($ken eq '220002') {return 23;} #愛知
if($ken eq '220030') {return 23;} #愛知
if($ken eq '221057') {return 23;} #愛知
if($ken eq '221059') {return 23;} #愛知
if($ken eq '221107') {return 23;} #愛知
if($ken eq '219054') {return 24;} #三重
if($ken eq '220026') {return 24;} #三重
if($ken eq '220027') {return 24;} #三重・愛知

if($ken eq '218129') {return 25;} #滋賀
if($ken eq '220051') {return 25;} #滋賀
if($ken eq '221075') {return 25;} #滋賀
if($ken eq '218121') {return 26;} #京都
if($ken eq '218123') {return 26;} #京都
if($ken eq '219025') {return 26;} #京都
if($ken eq '219029') {return 26;} #京都
if($ken eq '219030') {return 26;} #京都・滋賀
if($ken eq '219092') {return 26;} #京都
if($ken eq '220041') {return 26;} #京都
if($ken eq '220037') {return 26;} #京都
if($ken eq '220046') {return 26;} #京都
if($ken eq '220047') {return 26;} #京都
if($ken eq '221055') {return 26;} #京都
if($ken eq '2210920') {return 26;} #京都
if($ken eq '060105') {return 27;} #大阪
if($ken eq '218121') {return 27;} #大阪
if($ken eq '218126') {return 27;} #大阪
if($ken eq '218129') {return 27;} #大阪
if($ken eq '218136') {return 27;} #大阪
if($ken eq '218181') {return 27;} #大阪
if($ken eq '218182') {return 27;} #大阪
if($ken eq '219020') {return 27;} #大阪
if($ken eq '219021') {return 27;} #大阪
if($ken eq '219023') {return 27;} #大阪
if($ken eq '219024') {return 27;} #大阪
if($ken eq '219062') {return 27;} #大阪
if($ken eq '220011') {return 27;} #大阪
if($ken eq '220012') {return 27;} #大阪
if($ken eq '220013') {return 27;} #大阪
if($ken eq '220018') {return 27;} #大阪
if($ken eq '220032') {return 27;} #大阪
if($ken eq '220033') {return 27;} #大阪
if($ken eq '220034') {return 27;} #大阪
if($ken eq '220035') {return 27;} #大阪
if($ken eq '220036') {return 27;} #大阪
if($ken eq '220038') {return 27;} #大阪
if($ken eq '220042') {return 27;} #大阪

if($ken eq '060110') {return 28;} #兵庫
if($ken eq '218124') {return 28;} #兵庫
if($ken eq '218125') {return 28;} #兵庫
if($ken eq '218154') {return 28;} #兵庫
if($ken eq '219022') {return 28;} #兵庫
if($ken eq '219026') {return 28;} #兵庫
if($ken eq '219027') {return 28;} #兵庫
if($ken eq '220014') {return 28;} #兵庫
if($ken eq '220015') {return 28;} #兵庫
if($ken eq '220016') {return 28;} #兵庫
if($ken eq '220017') {return 28;} #兵庫
if($ken eq '220039') {return 28;} #兵庫
if($ken eq '220040') {return 28;} #兵庫
if($ken eq '220044') {return 28;} #兵庫
if($ken eq '221064') {return 28;} #兵庫
if($ken eq '221092') {return 28;} #兵庫
if($ken eq '218183') {return 29;} #奈良・京都
if($ken eq '126070') {return 29;} #奈良
if($ken eq '220043') {return 29;} #奈良
if($ken eq '221072') {return 29;} #奈良
if($ken eq '220050') {return 30;} #和歌山
if($ken eq '060120') {return 31;} #鳥取
if($ken eq '221079') {return 32;} #島根
if($ken eq '060118') {return 33;} #岡山
if($ken eq '126087') {return 33;} #岡山
if($ken eq '218115') {return 33;} #岡山
if($ken eq '219063') {return 33;} #岡山
if($ken eq '220056') {return 33;} #岡山
if($ken eq '221084') {return 33;} #岡山・広島
if($ken eq '221094') {return 33;} #岡山・広島
if($ken eq '221097') {return 33;} #岡山
if($ken eq '221100') {return 33;} #岡山
if($ken eq '060116') {return 34;} #広島
if($ken eq '218120') {return 34;} #広島
if($ken eq '219060') {return 34;} #広島・鳥取
if($ken eq '220019') {return 34;} #広島
if($ken eq '220020') {return 34;} #広島
if($ken eq '220025') {return 34;} #広島
if($ken eq '220053') {return 34;} #広島
if($ken eq '219034') {return 35;} #山口
if($ken eq '221063') {return 35;} #山口
if($ken eq '221085') {return 35;} #山口

if($ken eq '221086') {return 36;} #徳島
if($ken eq '219028') {return 37;} #香川
if($ken eq '219211') {return 37;} #香川
if($ken eq '220045') {return 37;} #香川
if($ken eq '221080') {return 37;} #香川
if($ken eq '221096') {return 37;} #香川
if($ken eq '221076') {return 38;} #愛媛
if($ken eq '220048') {return 38;} #愛媛
if($ken eq '221089') {return 39;} #高知
if($ken eq '126071') {return 40;} #福岡
if($ken eq '126071') {return 40;} #福岡
if($ken eq '060122') {return 40;} #福岡
if($ken eq '218114') {return 40;} #福岡
if($ken eq '218116') {return 40;} #福岡
if($ken eq '218117') {return 40;} #福岡
if($ken eq '219212') {return 40;} #福岡
if($ken eq '220054') {return 40;} #福岡
if($ken eq '220058') {return 40;} #福岡
if($ken eq '220059') {return 40;} #福岡
if($ken eq '220060') {return 40;} #福岡
if($ken eq '220061') {return 40;} #福岡
if($ken eq '221098') {return 40;} #福岡
if($ken eq '221078') {return 40;} #福岡
if($ken eq '221098') {return 40;} #福岡
if($ken eq '221101') {return 40;} #福岡

if($ken eq '220020') {return 41;} #佐賀・福岡
if($ken eq '221067') {return 41;} #佐賀
if($ken eq '220055') {return 42;} #長崎
if($ken eq '221083') {return 43;} #熊本
if($ken eq '221088') {return 43;} #熊本
if($ken eq '220022') {return 43;} #熊本
if($ken eq '060125') {return 44;} #大分
if($ken eq '218113') {return 44;} #大分
if($ken eq '220062') {return 44;} #大分
if($ken eq '221077') {return 45;} #宮崎
if($ken eq '220063') {return 46;} #鹿児島
if($ken eq '221065') {return 46;} #鹿児島
if($ken eq '221074') {return 46;} #鹿児島
if($ken eq '221082') {return 46;} #鹿児島
if($ken eq '221087') {return 46;} #鹿児島
if($ken eq '221091') {return 46;} #鹿児島
if($ken eq '219031') {return 47;} #沖縄
if($ken eq '220057') {return 47;} #沖縄
if($ken eq '220049') {return 42;} #中国四国(高知)


当時、全部調べきれなかったけど