use strict; use warnings; use HTML::TreeBuilder; my $root = HTML::TreeBuilder->new (); $root->parse_file (*DATA); for ($root->look_down ('_tag', 'a')) { my $href = $_->attr ('href'); next if ! $href; my $sib = $_->right ()->right (); my $number = $sib->as_text (); print "$href: $number\n"; } __DATA__ ####

A

Abbott, Evelyn
110136892
Agnew, Thomas
110377660
Allison, David
108116112
Allison, Gary Owen
116815754
Arsenault, Michael
108318866
Arsenault, Normand A.
113069066
##
## pdf\c76b834e-36e1-497b-b13e-eba2348dc044.pdf: 110136892 pdf\8a956f66-1c60-48fc-905c-b49d617aa6c5.pdf: 110377660 pdf\37d3e78b-1adb-458b-9e89-0df780909f08.pdf: 108116112 pdf\6c0a5bb4-143d-4305-957b-796c8193d07a.pdf: 116815754 pdf\ae8d51e0-005b-44be-84cb-3c9b57335755.pdf: 108318866 pdf\e646f948-f78d-4463-a01d-0261aebf70dc.pdf: 113069066