c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'xx111yy22xx333yy44zz555xx666';
 ;;
 print qq{first capture: '$1'} if $s =~ m{ (\d+) }xmsg;
 ;;
 print qq{subsequent captures: '$1'} while $s =~ m{ (\d+) }xmsg;
"
first capture: '111'
subsequent captures: '22'
subsequent captures: '333'
subsequent captures: '44'
subsequent captures: '555'
subsequent captures: '666'