c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = '1 2 3 4 5 6 7 8 9 10 11 12 13 14 15';
 print qq{'$x'};
 ;;
 printf qq{'$+{weight}' } while $x =~ m{ (?<weight> \d+) }xmsg;
"
'1 2 3 4 5 6 7 8 9 10 11 12 13 14 15'
'1' '2' '3' '4' '5' '6' '7' '8' '9' '10' '11' '12' '13' '14' '15'