sub fixxml { # fix the xml nodes so they parse correctly my$xml = shift; my$fix = q{ }; # mirod to the rescue! $xml = $fix.$xml unless $xml =~ /^\s*\Q