Select Code to Download

my ($x, $y, $z) = qw( 1 2 3 );

(my ($x, $y, $z) = qw( 1 2 3 )) = qw( a b c ); # $x = 'a', $y = 'b', $
+z = 'c'.

print scalar (my ($x, $y, $z) = qw( a b c d ));  # 4

($x = 12) =~ s/1/4/; print $x;  # 42