# Perl
my $document = HTML::HTML5::Parser->load_html(location => $url);
my @links    = $document->getElementsByTagName('a');

for (my $i = 0; $i < @links; $i++) {
    warn($links[$i]{href});
}