http://www.perlmonks.org?node_id=1192520


in reply to a prime bug

Nice. But __END__ should be __DATA__ and __END__ be -- well, at the end.

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'