<p>data:info john:100 kent:2000</p>
<p>data:info ferr:100 tom:2000</p>
##</code><code>##

#!/usr/bin/perl 

use strict;
use warnings;
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//;
}


my ($dat1, $dat2) = ${$row}[2] =~ m/(\d+)\D+(\d+)/;

print "data:$row->[0] $row->[1]:$dat1 $row->[3]:$dat2", "\n";