c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"print 'perl version: ', $];
 ;;
 my $s = '3.5.9';
 ;;
 my @ra;
 my $c = @ra = $s =~ m{ \d }xmsg;
 dd $c, \@ra;
 ;;
 $s = '8.6.5.1';
 ;;
 $c = my @rb = $s =~ m{ \d }xmsg;
 dd $c, \@rb;
"
perl version: 5.008009
(3, [3, 5, 9])

(4, [8, 6, 5, 1])