use HTML::TokeParser::Simple;
use URI::URL;
use LWP::Simple 'get';
my $base = 'http://perlmonks.com/index.pl?replies=1&node_id=218130&displaytype=print';
my $html = get $base;
my $p = HTML::TokeParser::Simple->new(\$html);
my $n = 0;
my @n = ();

while(defined(my $t = $p->get_token)){

    if( $t->is_start_tag('a') ) {

        push @n, URI::URL->new($t->return_attr->{href},$base)->abs 
            if $t->return_attr->{href};

        print '<strong>',
              $p->get_trimmed_text('/a'),
              "</strong><sup>$n</sup>";

        $n++;

    }elsif( $t->is_end_tag('body') ) {

        print '<hr><pre>';
        printf "%02.2d. %s\n",$_,$n[$_] for 0..$#n;
        print '</pre>';

    } else {
        print $t->as_is;
    }
}