c:\@Work\Perl>perl -wMstrict -MRegexp::Common -le
"$_ =  '10,101,110.11010110';
 ;;
 print qq{'$_'} for /$RE{num}{real}/g;
"
'10'
'101'
'110.11010110'