[ivank]

Код:

print "<table>";
open FILE, "sample.txt";
foreach (<FILE>)
{
    chomp;
    print "<tr><td>";
    @fields = split /\s/;
    print join('</td><td>', @fields);
    print "</td></tr>";
}
close FILE;
print "</table>";

sample.txt:

a b c d e f 1 2 3