# **************************************************************

# ucwords -- Converts first letter of each word within a string

# into an uppercase all other to lowercase.

#

#     string ucwords( string string )

sub ucwords {

my @array = split( /\s+/, shift );

return ( join( ' ', @array = grep { $_ = lc($_); $_ = ucfirst($_) } @array ) );

}