perl -e '$blub="a b   c"; @blub=split(//,$blub); foreach(@blub) {$c++; print "$c $_\n"}'