2010-01-29T12:59:26 pq Code (perl): (dl ) $string =~ s/(.)./$1/g;
$string =~ s/(.)./$1/g;
$string =~ s/.(.)/$1/g;