perl -MLWP::Simple -MXML::LibXML -e 'print XML::LibXML->new->parse_html_string(get "http://www.oreilly.com/catalog/top25.html")->findvalue(q{//text()[contains(., "Learning Perl")]/ancestor::tr[1]/td[1]/text()})'