use warnings;
use strict;
use HTML::TableExtract;

my $te = HTML::TableExtract->new (attribs => {align => 'center'});
my $data = join "", <DATA>;

$te->parse ($data);
foreach my $ts ($te->table_states ())
  {print "R      ", join (',', @$_), "\n" foreach $ts->rows ();}