print "<TABLE>\n";
while (<FILE>)
{
      chomp;
      print "<TR>",
            (map { $_ =~ s/</&lt;/g; "<TD>$_</TD>" } split (/\|/)),
            "</TR>\n";
}
print "</TABLE>\n";