$String = "sdalfkjsdlfjasl;kjsdflkj12345678dskajhjkhddsfkjhh";
print "\n\n\$String = ".$String."\n\n";

($Regex1) = ($String =~ /.*(\d{6,8}).*/);

print "\$Regex1 = ".$Regex1."\n";<br>

print "\nJust to check:\n\$1 = ".$1."\n";
print "\$2 = ".$2."\n";