use strict;
use warnings;
use Regexp::Common;

my %numbers;
open my $fh, '<', 'numbersFile.txt' or die $!;

while (<$fh>) {
	$numbers{$1}++ while /($RE{num}{real})/g;
}

close $fh;

print "Number: $_\tCount: $numbers{$_}\n"
  for sort { $a <=> $b } keys %numbers;

##</code><code>##

12.7 abce -3.14 21
This is a line with 8 words in it.
10000 is a big number.
Looks like 21 and 12.7 again.
5 + 7 = 12

##</code><code>##

Number: -3.14	Count: 1
Number: 5	Count: 1
Number: 7	Count: 1
Number: 8	Count: 1
Number: 12	Count: 1
Number: 12.7	Count: 2
Number: 21	Count: 2
Number: 10000	Count: 1