Select Code to Download

print "<textarea>", @text, "</textarea>\n";
# (unless you've redefined $,)

{
    local $";
    print "<textarea>@text</textarea>\n";
}