my $len = 0;
$string =~ s/(.)/q|'$len++;$1'|/gimmesomesex;