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