my @rows = split /\n/, $input;
foreach my $row (@rows)
{
   print "<TR>\n";
   my @columns = split / /, $row;
   foreach my $column (@columns)
   {
      print "<TD>$column</TD>\n";
   }
   print "</TR>\n";
}