in reply to removing tags

perl -MXML::Parser -e'XML::Parser->new( Handlers => { Char => sub { print $_[1]; }})->parse(\*STDIN)'

or, of course

perl -MXML::Twig -e'print XML::Twig->new->parse(\*STDIN)->root->text'

In Section Seekers of Perl Wisdom