#!c:/Perl/bin/Perl.exe
# 
# this code was put in the public domain here:
# http://sourceforge.net/projects/dataoniphone/ V 0.9.0 04/08/2008 17:01:00

open (INFILEHANDLE, "<table.txt") or die "error opening";
open (OUTFILEHANDLE, ">table.html") or die "error opening";
while (<INFILEHANDLE>) {
    chomp;

    if ($_ eq "") {
      print OUTFILEHANDLE "<B><\/B><BR>\n\n<HR>\n"; # was an empty line

    } else {
      s/\t/ /;   #join 1st & 2nd field (comment this if undesired)
      s/\t/ <\/B><BR>\n/;   # 1st fields will be bold so we have a <\/B>
      s/\t/ <BR>\n/g;  # remaining fields will end with <BR>

      print OUTFILEHANDLE "<B> $_ <BR>\n<HR>\n"; # record separator will be <HR>
    }

}

close INFILEHANDLE;
close OUTFILEHANDLE;

print "\nFile table.html created (press a key)\n";

$line = <STDIN>;