Select Code to Download

d:\>perldoc -q capitalize
Found in D:\Perl\lib\pod\perlfaq4.pod
...

            $line =~ s/\b(\w)/\U$1/g;