"abc"=~/.(.)/;
for $z ($1) { print ":$z:"; "zz" =~ /.(.)/; print ":$z:" }