in reply to TMTOWTDI Puzzle: Generating a range of numbers

I don't believe I've seen this one yet:
$a="lalalalala"; while($a=~m/./g){ print pos $a; }
If I am mistaken, I apologize. If not, I apologize for the apology.
Marty