Select Code to Download

$ perl -le'my $b = 4; $r = \( $b++ ); $$r = 20; print $b'
5

$ perl -le'my $b = 4; $r = \( ++$b ); $$r = 20; print $b'
20