Shoot. I am missing something here. I tried your code. It loops the right number of times, but it seems to only see the last character (the first match in a greedy match). So an input of '12345' looks like '55555'.
To test I tried
$x="12345";
for ($x=~ /./g) {
print $&;
}
print "\n";
but this gives me "55555" again. I notice, I should
be using a while and I try:
$x="12345";
while ($x=~ /./g) {
print $&;
}
print "\n";
which works. So I changed your code to use a while loop also and it works.
--
termix |