bla1
abc
def
ghi
end

##</code><code>##

$testXML = join '', $testXML, $_;

 WITH

$testXML .= "**$_**\n";