$ perl -wE 'say "\*E"'
*E