#!perl -p
s;.;lc$&ne$&&&" @+";ge;s;;