Select Code to Download

$string = "
hello
...
</tag>
more text
";

$string = "
hello
<tag><br>code<br>goes here<br></tag>
more text
";

$string =~ s/<tag>(.*?)<\/tag>/$1 =~ s/\n/<br>/gs;/ieg;