my $days_re = do { my $tmp = join '|', @days; qr/$tmp/ };