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