指数関数的発散(17)

(?:...){1,1}で囲んだだけで、チェックが働かない。

$s = " foo " x 50 . "z";
$s =~ /(?:(?:\s*foo\s*)*){1,1}\z/;