my $oxml = qq(<?xml version="1.0" standalone="yes"?> <data image="$encoded"/>\n);

##</code><code>##

my $oxml = <<EOF;
<?xml version="1.0" standalone="yes"?>
<data image="$encoded"/>
EOF