print "<DATE>",
              $x,
              "</DATE>\n";
   # or
        print  "<DATE>"
             . $x
             . "</DATE>\n";