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