Select Code to Download

my $one = !@!;
my $one = !!$];
...
my $one = @{[$$]};
my $one = 'a'^'P';             # Character set specific.
my $one = ord('b')-ord('a');   # Character set specific.

my $two = $one+$one;
my $two = $one<<$one;
...
my $two = ()=/(.*)(.*)/;       # Side-effect: Changes $1, etc
my $two = 'a'^'S';             # Character set specific.
my $two = ord('c')-ord('a');   # Character set specific.