Select Code to Download

>perl -wMstrict -le
"my $s = qq{xxx </div>\n</body> xxx};
...
[[xxx </div>
</body> xxx]]
[[xxx gone xxx]]