The initial ".*" in $Regex1 is greedy, grabbing as much as it can.

You can make it less greedy by adding "?" - this works:

my ($Regex1) = ($String =~ /.*?(\d{6,8}).*/);
[download]

Update: Multiple collisions on this reply!