sub j { ($_,$@)=@_;s/./$&.substr$@,0,1,''/ge;$_ }