From: "John W. Krahn" <[EMAIL PROTECTED]>
> Jenda Krynicky wrote:
> >
> > Assuming you meant
> >
> > @a=("I","LOVE","PERL");
> >
> > $b = join(' ', map {ucfirst(lc($_))} @a) . "\n";
>
> $b = qq<@{[map"\u\L$_",@a]}\n>; # :-)
($b=lc"@a\n")=~s/\b(.)/\U$1/g;
or
($b="[EMAIL PROTECTED]")=~s/\b(.)/\U$1/g; # :-))
Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
