while ($string =~ /(.)/sg)