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


in reply to Re: printing every 2nd entry in a list backwards
in thread printing every 2nd entry in a list backwards

Here's a mapslice

mapslice => sub { my @x = @::list[ map {$_<<1} reverse 0..@::list>>1 ] + }

which you might want to add.

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