実行結果:#!/usr/bin/env perl # -*- coding: utf-8 -*- use strict; use warnings; use utf8; binmode STDOUT, ":utf8"; while (<DATA>) { print "[$1] $_" if /^(..([都道府]|.?県))/; } __DATA__ 東京都渋谷区 北海道札幌市 京都府京都市 宮崎県都城市 東京都府中市 和歌山県和歌山市
[東京都] 東京都渋谷区 [北海道] 北海道札幌市 [京都府] 京都府京都市 [宮崎県] 宮崎県都城市 [東京都] 東京都府中市 [和歌山県] 和歌山県和歌山市