my $Count = 0; $text =~ m{ ^ (?> \d+ (?{ $Count++ }) \b | \w+ | \s+ )* $ }x; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl