in reply to Re^2: How many loops are there in Perl?
in thread How many loops are there in Perl?

as you wish :)

  DB<72> (" "x10) =~ m/ (?{print $x++})/g
 => (" ", " ", " ", " ", " ", " ", " ", " ", " ", " ")
0123456789

[download]

I'm surprised nobody tried s///e

Cheers Rolf

update: 

  DB<20> $_=" "x10; s/ /print $x++/ge
 => 10
0123456789

[download]

In Section Seekers of Perl Wisdom