while (<FH>) {
  if (m[width="14%"><font \S+ color="(.*)" \S+>(\d+)<]) {
    my ($color, $day) = ($1, $2);
    print "Day $day is $color\n";
  }
}