Help for this page
($s1, $s2, $s3, $mon, ... , $sun) = split (/ /);
($s1,$s2, $s3, $mon, $tue, $wed, $thu, $fri, $sat, $sun) = split (/ /) +; $alldays = ($mon, $tue, $wed, $thu, $fri, $sat, $sun); $alldays2 = lc($alldays); print "$alldays2\n";