Help for this page
use strict; use warnings; ... my $rv = parser('abcd'); print("$_\n") for @$rv;
a|b c|d
(?<expr> (?&foo) ... (?<foo> . )