sub fixxml { # fix the xml nodes so they parse correctly my$xml = shift; my$fix = q{ }; # mirod to the rescue! $xml = ($xml=~/^<\?xml/i?'':$fix).$xml; # Zaxo $xml =~ s/[\r\n\t]//g; # jcwren $xml =~ y/\x00-\x1f//d; # strip control chrs return $xml; # to the xml parser }