in reply to regex for multiple capture within boundary

The simple answer is: 
my @nums = $x =~ /\d+/g;

[download]
 Update: Okay, I reread the problem. :-) 
$ perl -le'$x = "a1aa11 b2bb22bbb222 c3cc33"; print for ( $x =~ /\s(\S
++)\s/ )[ 0 ] =~ /\d+/g'
2
22
222

[download]

In Section Seekers of Perl Wisdom