Help for this page

Select Code to Download

Select or download this

use Regexp::Debugger;
my $re=qr{(?x) (?&LIST)
...
            (?<ITEM> \d*+ | (?&LIST) )
        )
        };