use warnings; use strict; use HTML::TableExtract; my $te = HTML::TableExtract->new (attribs => {align => 'center'}); my $data = join "", ; $te->parse ($data); foreach my $ts ($te->table_states ()) {print "R ", join (',', @$_), "\n" foreach $ts->rows ();} ##

##

__DATA__



Name Blah
bill fdagdfg
ted sdfsdf




R      Name,Blah
R      bill,fdagdfg
R      ted,sdfsdf