Help parsing an HTML Doc using HTML::TreeBuilder

[Hill, Ronald]

Hi All,

I am having a hard time extracting data from an HTML file I am
downloading from the web. What I want to do is extract the name and jersey
number from a soccer web page.

Here is what I have tried:

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTML::TreeBuilder;
my $ua = LWP::UserAgent->new;
 
my $url = 'http://www.coastsoccer.com:443/2004/P4619.HTM'; 
my $req = HTTP::Request->new(GET => "$url");
 
# send request
my $res = $ua->request($req);

# check the outcome
unless($res->is_success) {
      warn "Couldn't get $url: ", $res->status_line, "\n";
      return;
    }

my $tree = HTML::TreeBuilder->new_from_content($res->content);
   $tree->eof;

   my $realtable = $tree->look_down(
                         '_tag', 'table',
                   sub {
                   my $table = $_[0]->look_down('_tag','table');
                   return 1 if $table->attr('cellpadding') =~ m{/6/};
                   return 0; # otherwise bad
                   }
             );   
And ther error is:
F:\scripts>testxxx.pl
Use of uninitialized value in pattern match (m//) at F:\scripts\testxxx.pl line 27.

It seems that it does not recognize the ceelpadding attr (which should be 6)
Can anyone tell me what Iam doing wrong?

Thanks

Ron Hill