perl -e "my $c; $c = qr/ ( \d | (??{ $c++ }) )* /x; '2345654321' =~ $c; print $&;"