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