my @days    = qw( Sun Mon Tue Wed Thu Fri Sat );
   my $days_re = qr/join '|', @days/e;

##</code><code>##

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