#!perl -p
s/./@+/g