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