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