s/(.)./$1/g,print for<>