$ perl -MXML::Twig -e " print XML::Twig->new( keep_spaces => shift)->parse( q{
Now hist. and rare
} )->_dump " document |-header | |-PCDATA: 'Now ' | |-la | | |-PCDATA: 'hist.' | |-PCDATA: ' and ' | |-la | | |-PCDATA: 'rare'