...
##

use LWP::Simple;
use HTML::Parser;

my $monk = $ARGV[0] || 'eg';

my $content = get("http://perlmonks.org/?node=$monk");

my $tables_seen = 0;
my $in_user_table = 0;
my $parser = HTML::Parser->new(
        start_h => [
                sub {
                        if ( $_[0] eq 'table' ) {
                                $in_user_table = 1 if ++$tables_seen == 6;
                        }
                }, 
                "tagname" ],
        end_h => [
                sub {
                        $in_user_table = 0 if $_[0] eq 'table';
                },
                "tagname" ],
        text_h => [
                sub {
                        print @_ if $in_user_table;
                },
                "dtext" ],
        );

$parser->parse( $content );
$parser->eof;