for(<>){s/(.|\n)/$1$1/g;print}