{ # setting $, $\ should be done in a block with local
    local $\="\n";
    {
       local $,="\n";
       print "These",
             "Are",
             "Seperate",
             "lines";
    }
    print join ("\n",
                "As",
                "Are",
                "These");
}

##</code><code>##

print <<END_OF_TEXT;
These
are
seperate
lines
END_OF_TEXT