($mon, $tue, $wed, $thu, $fri, $sat, $sun) = split " ", lc($_);
$alldays = "$mon $tue $wed $thu $fri $sat $sun"; # Edit doh... forgot to remove lc and ()
print "$alldays\n";

##</code><code>##

$alldays = lc($_);

##</code><code>##

@days = split (/ /);
$alldays = join ' ', map { lc $_ } @days;