Select Code to Download

foreach my $lines(@temparray) #where temparray is the above
{
...
{
   print "$1$2<br>";
}

while($string=~/(\w+ )([\w\W\d]+?\};\n)+?/gm)