perl -MXML::Parser -e '$p=XML::Parser->new(Handlers=>{Char=>sub{print "$_[1] "}});
   $p->parsefile("filename.xml")'