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