Perl function to take take make it proper case. This should just capitalize the first letter of every word.

sub proper { my ($string) = @_; my @new_words,$word,@words,$new_string; @words = split (/\s/, $string); foreach $word (@words) { $new_word = ucfirst lc $word; push (@new_words, $new_word); } $new_string = join(" ", @new_words); return ($new_string); }