Select Code to Download

$ perl -Mwarnings -le " my ( $l, $r ) = split /\s/, 'a b',2; print qq[
+$l$r\n]; "
ab
...

a

no warnings 'uninitialized';