正規表現使ってこその Perl だと思うんだがね。