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

##</code><code>##

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