テキストにマッチする正規表現を生成（例：都道府県）

gistfile1.pl

use Regexp::Assemble;
use Encode;

my $builder = Regexp::Assemble->new;

while(my $line = <DATA>){
    $line = decode('utf8', $line);
    $line =~ s/\r\n//g;
    $builder->add(quotemeta $line);
}
print encode('utf8', $builder->re);

__DATA__
北海道
青森県
岩手県
宮城県
秋田県
山形県
福島県
茨城県
栃木県
群馬県
埼玉県
千葉県
東京都
神奈川県
新潟県
富山県
石川県
福井県
山梨県
長野県
岐阜県
静岡県
愛知県
三重県
滋賀県
京都府
大阪府
兵庫県
奈良県
和歌山県
鳥取県
島根県
岡山県
広島県
山口県
徳島県
香川県
愛媛県
高知県
福岡県
佐賀県
長崎県
熊本県
大分県
宮崎県
鹿児島県
沖縄県