Select Code to Download

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

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

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