I can't find an error in your script, but have you tried this one:

for my $a (split //, $z){
#Process characters in this here
}
[download]

This should also go to the string char by char.

Maybe this will help ?

-----------------------------------
--the good, the bad and the physi--
-----------------------------------
[download]