$ perl -e 'print "\@hi\n";'
@hi

##</code><code>##

$ perl -e 'print "@=hi\n";'
@=hi

##</code><code>##

$ perl -e 'print "@$0\n";'

$ perl -e 'print "\@$0\n";'
@-e