Select Code to Download

/descendant::Volume[@VolumeCategory="L"]

//Volume[@VolumeCategory="L"]

my @matching =
   grep {
...
      defined($vc) && $vc eq "L"
   }
      $doc->getElementsByTagName('Volume');

my @matching = $doc->findnodes('//Volume[@VolumeCategory="L"]');