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