#!perl -p s#\w#$x=~$&.0>$-[$x=$&.$x]?"@-":$&#eg