next if( $options{"unoccupied"} eq "0" && 
             $_[6] eq "unoccupied\n" );

##</code><code>##

my $dispmode = $options{display} * 2;
$dispmode |= $options{coordinate};   # bitwise OR

# $dispmode values: 0 == display:0 and coordinate:0
#                   1 == display:0 and coordinate:1
#                   2 == display:1 and coordinate:0
#                   3 == display:1 and coordinate:1

# create a distinct print sub for each mode:
# (in the second one, the regex places parens around 
#  the last two comma-delimited fields on the line if
#  the last field is numeric)

my @modesub = ( sub { print $_[0], "<br>\n" },
                sub { ($_=$_[0]) =~ s/([^,]*,-?[\d]+)$/($1)/; print "$_ <br>\n"},
                sub { print "<tr><td>" . join("</td><td>",split /,/, $_[0])
                          . "</td></tr>\n" },
                sub { print "<tr><td>" . join("</td><td>",split /,/, $_[0], 8)
                          . "</td></tr>\n" }
              );

for ( @data ) {

# the following regex will check if this element of @data has
# "unoccupied" following the 6th comma, and nothing thereafter:

    next if( $options{"unoccupied"} == 0 && /^(?:[^,]*,){6}unoccupied$/ );

    $modesub[$dispmode]->( $_ );
}
@data = ();  # added this to get rid of the data 
             # though maybe that doesn't really matter?

print "</table>" if($dispmode & 2);


##</code><code>##

    @data = grep /\S/, <DAT>;  # skip blank lines
    chomp @data;             # remove newline chars