Select Code to Download

perl -e 'my $sa = () = split //,"foo"; print $sa'

perl -e 'my $sa = do {my @tmp = split //,"foo"}; print $sa'