while (<DATA>){
   chomp;
   next unless /\S/; # skip blank lines
   my @f = split /[ ,]+/;
   my $n = $#f;
   my $date  = join ' ',@f[0..2];
   my $recip = join ' , ',@f[5..$n-1]; 
   my $id    = $f[$n]; # last col
   my $color = ($f[3] eq 'INFECTED') ? '#ffcccc' : '#ffffff';
   
   $table .= qq!<tr style="font-family:courier" bgcolor="$color">
   <td>$date</td>
   <td>$f[3]</td>
   <td>$f[4]</td>
   <td>$recip</td>
   <td>$id</td>
</tr>!;      
   $table .= "</tr>";
}