Select Code to Download

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

my $i = 0;
${'f' . $i ++} = $_ for split //, $s