Select Code to Download

my @exts;
push @exts, $1 while $largeStr =~ /\GTel: 06(\d+)/g;
...
# or better yet
my %exts;
$exts{$1}++ while $largeStr =~ /\GTel: 06(\d+)/g;

print qq[found "$_" $exts{$_} times],$/ for sort keys %exts;