http://strange.drive.ne.jp/stored/dvup7709.txt
perlは便利だなぁ(;´Д`)ほぼﾌﾞﾗｸﾗなので注意