use strict; use warnings; use XML::LibXML qw( ); my $parser = XML::LibXML->new(); $parser->keep_blanks(0); print $parser->parse_fh(*DATA)->toString(@ARGV ? $ARGV[0] : 1); __DATA__ Test entry #### Test entry