...or you could be clever. As I understand it you want all the text up to a blank line in a single row, with each blank row outputting a darker table row. If that's the task this'll work:

my $file = join "", <FH>;
my @rows = split /^\n/m, $file;

for (@rows) {
    print Tr(td(["Checkboxes", split "\n"]));
    print Tr({-bgcolor=>"#000066"}, td({-width=>298}, ["&nbsp;", "&nbs
+p;"]));
    print "\n";
}
[download]

This is reason #27 why CGI.pm's HTML generation functions are just so damn cool when it comes to outputting truly dynamic HTML. If you haven't meditated on how Tr(td(\@array)) works you should consult the CGI.pm documentation and be enlightened.

Gary Blackburn
Trained Killer