@f = split //, $s;
# Now, each char is in $f[0], $f[1], etc.