How about just using 'lc' if you just want everything changed to lower case?

my $text = lc($text);
[download]

If you were so inclined, you could even use the 'ucfirst' function to pretty things up somewhat:

my $result;
my $text = lc($text);
my @words = split(/\s+/,$text);
foreach(@words){ $result .= ucfirst($_)." "; }
[download]

You could even 'ucfirst' just the first word in each sentence (although I'll leave that as an exercise to the reader). =-)

-beernuts