in reply to TMTOWTDI Puzzle: Generating a range of numbers
$a="lalalalala"; while($a=~m/./g){ print pos $a; } [download]