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

##</code><code>##

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