Neither stand up too well unless I've screwed something

I didn't know how they'd compare.

Very tired right now, but I think while ( my $c = $string =~ /(.)/sg) is wrong. $c will be 1 in the loop. Need to use $1.