I gave it a go, but perl wouldn't run until I changed your line to:

while( length ( my $a =substr $z,$g,1)) {
[download]

I'm afraid it didn't work^H^H^H^H fix the problem.

____________________
Jeremy
I didn't believe in evil until I dated it.