#!/usr/local/bin/perl5.6.0 -w
use strict;

use XML::Simple;

my $xs = XML::Simple->new();

my %data;

$data{text} = q{
line 1 text
line 2 text
line 3 text
};

print $xs->XMLout(\%data, noattr => 1)