my $c = 'a';
my $d = 'A';
$_ = 'stuff';

print $c^lc$c^lc;
print $d^lc$d^lc;