Select Code to Download

use strict;
my $x = "abcdefghijklmnopqrstuvwxyz";
my $y = ("A" ^ "a") x length($x);
my $z = $x & ~$y;
print "\$z = $z\n";