my @f = split //, $s;