my @f = split(//, $s);

##</code><code>##

my @f = $s =~ /./gs;

##</code><code>##

print("\@f has ", scalar(@f), " elements:\n");
print("\$f[$_] = $f[$_]\n") for (0..$#f);