$ cat nathane.pl #!/usr/bin/perl use strict; use warnings; SearchText("CorporateHeadquarters345ParkAvenueSanJoseCA9511027044085366000httppartnersadobecom"); sub SearchText { my $In = $_[0]; for my $a (13 .. 19) { my $Temp = $In; while ($Temp =~ /(?=(\d{$a}))/g) { my $Num = $1; print "Num: $Num\n"; } } } Owner@sunshine ~/pbed $ ./nathane.pl Num: 9511027044085 Num: 5110270440853 Num: 1102704408536 Num: 1027044085366 Num: 0270440853660 Num: 2704408536600 Num: 7044085366000 Num: 95110270440853 Num: 51102704408536 Num: 11027044085366 Num: 10270440853660 Num: 02704408536600 Num: 27044085366000 Num: 951102704408536 Num: 511027044085366 Num: 110270440853660 Num: 102704408536600 Num: 027044085366000 Num: 9511027044085366 Num: 5110270440853660 Num: 1102704408536600 Num: 1027044085366000 Num: 95110270440853660 Num: 51102704408536600 Num: 11027044085366000 Num: 951102704408536600 Num: 511027044085366000 Num: 9511027044085366000