my @days    = qw( Sun Mon Tue Wed Thu Fri Sat );
my $days_re = join("|", map {qr/\Q$_\E/} @days);
   $days_re = qr($days_re);