Select Code to Download

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