c:\@Work\Perl\monks\justrajdeep>perl extract_binary_nums_1.pl
matched '10' at offset 0; is integer
matched '101' at offset 3; is integer
matched '110.11010110' at offset 7; is real
matched '101.010E-01' at offset 24; is exponential