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