Jenda Krynicky wrote: > > Assuming you meant > > @a=("I","LOVE","PERL"); > > $b = join(' ', map {ucfirst(lc($_))} @a) . "\n";
$b = qq<@{[map"\u\L$_",@a]}\n>; # :-) > print $b; John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]