perl -MHTML::TreeBuilder::XPath -e'$t= HTML::TreeBuilder::XPath->new; $t->parse( "

para © —

"); @p=$t->findnodes( "//p"); print $p[0]->as_text(), "\n";'