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