c:\@Work\Perl\monks\justrajdeep>perl -wMstrict -MRegexp::Common=number -le
"my $str  = '100,11,111,111,10,101,110.11010110,10,101,010.0E-01,123,111';
 ;;
 my $bin_int  = qr{ $RE{num}{int} {-keep}{-sep=>','}{-group=>3}{-base=>2} }xms;
 my $bin_real = qr{ $RE{num}{real}{-keep}{-sep=>','}{-group=>3}{-base=>2} }xms;
 ;;
 my $binary = qr{ (?| $bin_int | $bin_real) }xms;
 ;;
 while ($str =~ m{ \b $binary \b }xmsg) {
   ;;
   my $entire      = $1;
   my $fraction    = $6;
   my $exponential = $8;
   my ($start, $end) = ($-[1], $+[1]);
   ;;
   my $type = (defined $exponential && length $exponential) ? 'exponential' :
              (defined $fraction    && length $fraction)    ? 'real'        :
              'integer'
              ;
   ;;
   print qq{matched $type};
   my $ruler = (' ' x $start) . '^' . ('-' x ($end - $start - 2)) . '^';
   print qq{'$str'};
   print qq{ $ruler \n};
   ;;
   }
"
matched integer
'100,11,111,111,10,101,110.11010110,10,101,010.0E-01,123,111'
 ^-^

matched integer
'100,11,111,111,10,101,110.11010110,10,101,010.0E-01,123,111'
     ^--------^

matched real
'100,11,111,111,10,101,110.11010110,10,101,010.0E-01,123,111'
                ^-----------------^

matched exponential
'100,11,111,111,10,101,110.11010110,10,101,010.0E-01,123,111'
                                    ^--------------^

matched integer
'100,11,111,111,10,101,110.11010110,10,101,010.0E-01,123,111'
                                                         ^-^