#!/usr/bin/perl

use strict;
use warnings;

open( my $fh, '<', "/home/joerg/dump.html" ) or die $!;
my $html = do { local( $/ ); <$fh> };
close $fh;

my @nodes;

while ( $html =~ s!<tr><td><a href="\?node_id=(\d+)">([^<]+)</a></td><td>\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d</td></tr>!! ) {
    push @nodes, [ $2, $1 ];
}

print "@{$_}\n" for @nodes;