perlの文字列処理は強力だもんなぁ。
Cで同じ事しようと思ったら、考えただけでうんざりする。