/html/body/p/a
/html/body/p[2]/a 
/html/body/p[3]/a
....
/html/body/p[66]/a

##</code><code>##

 
$mech->get($url);
$content = $mech->response()->decoded_content(); 
my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse($content);
$tree->eof;
@res = $tree->findvalues(???);#