>>1のいうとおりのものなんてperlから正規表現なくせばいいだけじゃん