Select Code to Download

for my $day_week( qw(Mon Tue Wed Thu Fri Sat Sun) ) {
    my $regexp = "^$day_week"; 
...
              if($day =~ m/$regexp/o) { # do somthing }           
           }';    
}