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