do you know that when you are using the concatenation operators you are actually embedding into a string what is being concatenated to it and since Perl allows you to do string interpolation on the dereferenced variables you could well write this

print "\n\n\$String = ".$String."\n\n";
[download]

as this:

print "\n\n\$String = $String\n\n";
[download]

and the same thing goes for

print "\$Regex1 = ".$Regex1."\n";
[download]

and

print "\nJust to check:\n\$1 = ".$1."\n"
[download]

so try to be more organized in writing your code... I see an HTML line break in the body of your code !!!!