Select Code to Download

<br>
FOO<br>
...
<br>
BAZ<p><br>
<br>

$text = <<TEXT;
FOO
...
$text =~ s/</\n</g;
$text =~ s/>/>\n/g;
print $text;

FOO
<br>
...
<p>
BAZ
<br>