Select Code to Download

my @xpaths = qw{
/html/body/p/a
...
};
my $allXpaths = join ' | ', @xpaths;
my @values = $tree->findvalues;

/html/body/p[
position()=1
...
or  position()=3
or  position()=66
]/a

/html/body/p[
(
...
  )
)
]/a