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