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

##</code><code>##

for my $c ($string =~ /./sg)