change char, keep case

[Ing. Branislav Gerzo]

Hi all,

quite interesting, how you would write this without $temp:

use strict;
use warnings;

my $first = 'B';
my $second = 'a';

($first, $second) = ($second , $first);

print $first, "\n";
print $second, "\n";

but I want keep case of chars, so output is:
"Ab"

Have a nice day :)


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>