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