($s1, $s2, $s3, $mon, ... , $sun) = split (/ /);


##</code><code>##

($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";