Select Code to Download

$varalias =~ s/=.*//;  # Delete everything(.*) from the equals on
$vartarget =~ s/"$//;  # Delete the quote at the end($)

# If able to delete the stuff(.*) between the beginning
# of the line(^) and the word 'alias' and one-or-more spaces(\s+)
# found after that ...
...

     # Then whatever...
}

print OUT <<END_HTML;
<FOO>
<FOO>$varsource
...
<FOO>
<FOO>
END_HTML

if ($something)
{
      some_code();
...
             some_other_code();
      }
}