$VAR1 = [
          [
            undef,
            undef,
            undef,
            undef,
            ' '
          ],
          [
            'info',
            '
                  
                    john
                  
              ',
            '
              
                
                100 - 2000
                
              
            ',
            '
                
                  kent
                
              ',
            undef
          ],
          [
            'info',
            '
                  
                    fmtr
                  
              ',
            '
              
                
                409 - 3010
                
              
            ',
            '
                
                  stone
                
              ',
            undef
          ],
[
            undef,
            undef,
            undef,
            undef,
            ' '
          ],
          [
            undef,
            undef,
            undef,
            undef,
            ' '
          ]
        ];


##</code><code>##

 and more useless down
 ],
          [
            undef,
            undef,
            undef,
            undef,
            ' '
          ],
          [
            undef,
            undef,
            undef,
            undef,
            ' '
          ],


##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use HTML::TableExtract;
use LWP::UserAgent;


my $ua = LWP::UserAgent->new;
 
my $req = HTTP::Request->new(GET => '');
 
my $res = $ua->request($req);
my $html = $res->decoded_content;

my $table = HTML::TableExtract->new();
$table->parse($html);
my $row = $table->rows;

print "Content-type: text/text\n\n";
my $foo = 0; 

foreach (@$row){
    s/\A\s+//;
    s/\s+\z//;
}


print Dumper($row);