Select Code to Download

$ perl -wle 'my @ar = qw(one two three); print "@ar"; my @new = map { 
+$_ = uc } @ar; print "@new"; print "@ar"'
one two three
ONE TWO THREE
ONE TWO THREE