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

para ©

"); $p=$t->findvalue( "//p"); print $p, "\n";'