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]
