There are a few variations of Bikers answer

• Set $, to be a newline (or use join explicitly as suits your taste and style), also set $\ to a newline.

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

• Use a here doc. (Consult the docs, here docs can be a bit tricky.)

  print <<END_OF_TEXT;
  These
  are
  seperate
  lines
  END_OF_TEXT
  [download]

Yves / DeMerphq
--
This space for rent.