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