in reply to Regex: plucking numbers from a large string

my %hash;
hash{$_}++ foreach ($largeStr =~ /Tel: (06\d+)/g);

[download]
That'll count the "extensions" for ya.

In Section Seekers of Perl Wisdom