my ($day, $from, $to) =
   ($day_hours =~ /([A-Za-z]+).*(\d+)-(\d+)/);