I have a search engine script written in Perl/CGI, and most of the
users input their query "all lowercase".  I want to know the line(s)
of Perl code require to automatically capitalize the first letter of
each word the user inputs:  "Uppercase".  Examples:

$query = televisions
becomes...
$query = Televisions

$query = stock market
becomes...
$query = Stock Market

THANKS!

@words=split(/\s+/);
    for ($i=0;($i<@words);$i++) {
        if ($words[$i] =~ /([a-z])(.*)/) {
            $words[$i]= (uc $1) . $2;
        }
    }
    $text=join(" ",@words);
    printf("MixedCase: %s\n", $text);

$query =~ s/\b(\w)/\u$1/g;