in reply to Number of times I've used goto in Perl

Three times. here, here and here.

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

In Section Past Polls