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