元のPerlで使っていた正規表現は試してないかんね。