Select Code to Download

$ perl -wle'$x="xx";$y="yy"; $_=uc for ($y)=$x; print "$x$y"'
xxXX

$ perl -wle'$x="xx";$y="yy"; $_=uc for (undef)=$x; print "$x$y"'
XXyy