#!perl -p
y///cs;s/@(.)/$1$1/g