http://qs321.pair.com?node_id=747351


in reply to Re^2: Parse::RecDescent matching same line twice
in thread Parse::RecDescent matching same line twice

It's just like in regexps
'XZ' =~ / ^ (?: X (?{ print "X" }) Y (?{ print "Y" }) | X (?{ print "X" }) Z (?{ print "Z" }) ) \z /x; print("\n");
XXZ