Select Code to Download

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