my $is_binary = RE_num_real(-keep, -group=>3, -sep=>',', -base=>2);
print "Checking '$_' against /$is_binary/\n";
if( $_ =~ /$is_binary/ ) {
    print q{matched a number};
    print "Got [$1]\n";
};