my $text = lc($text);

##</code><code>##

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