c:\@Work\Perl\monks>perl -wMstrict -le
"$_ = '1223w3433.45+34';
 ;;
 /\d\D*/g;
 printf qq{'$&' } while /\d\D*/g;
"
'2' '2' '3w' '3' '4' '3' '3.' '4' '5+' '3' '4'