Help for this page
#!/pro/bin/perl ... my $tree = HTML::TreeBuilder->new; $tree->parse_content ($route); print $_->as_text, "\n" for $tree->look_down (_tag => qr{^(?:h[12]|a)$ +});
$ wikigraph.pl here eternity Shortest path from here to eternity ... Grave 4 clicks needed $