Title Casing a Phrase

titlecase.pl

# A simple attempt at faking title case on a phrase.
sub titlecase {
	$_ = shift;
	my @words = split( / / );
	my @twords;
	foreach ( @words ) {
		$_ = lc( $_ );
		$_ = ucfirst( $_ );
		push( @twords, $_ );
	}
	return join( " ", @twords );
}