Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!pdn!tscs!tct!chip
From: chip@tct.uucp (Chip Salzenberg)
Newsgroups: comp.lang.perl
Subject: Re: Perl bug (was: Capitalizing words in a line.)
Message-ID: <27BC1A2A.642C@tct.uucp>
Date: 15 Feb 91 17:28:10 GMT
References: <MARVIT.91Feb13190935@hplpm.hpl.hp.com> <4861@ruuinf.cs.ruu.nl>
Organization: Teltronics/TCT, Sarasota, FL
Lines: 12

According to marvit@hplpm.hpl.hp.com (Peter Marvit):
>I tried doing a s|\w.|tr[a-z][A-Z]| and some variants, but nothing worked
>correctly.  I plead to the perl community for help.

This worked for me:

    s/\b([a-z])/$x=$1,$x=~tr#a-z#A-Z#,$x/ge

-- 
Chip Salzenberg at Teltronics/TCT     <chip@tct.uucp>, <uunet!pdn!tct!chip>
 "I want to mention that my opinions whether real or not are MY opinions."
             -- the inevitable William "Billy" Steinmetz