$ perl -wle 'print "\*"'
*