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

 WITH

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