$string =~ s/(.)./$1/g;