my $buffer;

   open (INPF,"<input.dat") or die "Can't open input.dat: $!\n";
   while (<INPF>) {
     m/^(\w+)\s+(\d+)\s+(\w+)(.*)$/ or die "Unable to match any lines:$!\n";
     if ($2 < 90) { $buffer .= "<tr bgcolor='#00FF00'><td>$1</td><td>$2</td><td>$3</td><td>$4</td></tr>\n";
     } elsif ($2 < 180) {
        $buffer .= "<tr bgcolor='#FF6600'><td>$1</td><td>$2</td><td>$3</td><td>$4</td></tr>\n";
     } else {
        $buffer .= "<tr bgcolor='#FF0000'><td>$1</td><td>$2</td><td>$3</td><td>$4</td></tr>\n";
     }
   }
   close INPF;