my $data = join '', <DATA>;
print "<li>[id://$_]"
for $data =~ m{\Q<td style = "text-align: right">\E\s+(\d+)\s+\Q</td>\E}g;
__DATA__
# raw shizzle from "node lister" here