$a="lalalalala";
while($a=~m/./g){
   print pos $a;
}