holli,
If we are just being silly:

$str = $_->[0] ? $str . $_->[1] : '' for map { [ $_, substr($str,$_,1)
+ ] } 0 .. length($str) - 1;
[download]