perl -MXML::Parser -e '$p=XML::Parser->new(Handlers=>
  {Char=>sub{($_=$_[1])=~tr/ \n/ /s; s/^ +$//; print}});
  $p->parsefile("filename.xml"); print "\n"'