Help for this page

Select Code to Download

Select or download this

unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ s/\A(
+?:[a-z_][a-z0-9_]*)//i)
{
...
        Parse::RecDescent::_tracefirst($text))
            if defined $::RD_TRACE;
push @item, $item{__PATTERN1__}=$&;