in reply to Regex: plucking numbers from a large string

(@extensions) = $largeStr =~ /Tel:\s(06\d)/g;

[download]
ÅßÅ×ÅßÅ
"It is a very mixed blessing to be brought back from the dead." -- Kurt Vonnegut

In Section Seekers of Perl Wisdom