my $str = < ]> END my $parser = new XML::DOM::Parser; my $doc = $parser->parse ($str); assert_ok (not $@); my $out = $doc->toString; $out =~ tr/\012/\n/; # this line is mine... # warn "out - $out | str - $str"; assert_ok ($out eq $str);