Perlだとこの程度でも正規表現使わないといかんのか?