Kevin Gurney wrote:
P.S If anyone feels so inclined, a better way of matching
the numbers would be most appreciated as I'm simply picking everything in a 12 char range each time.
In the interest of more than one way, here's something else: pos($_) = 9; # skip first 9 chars push @ext, $1 while /(.{12})/g; Belden