Select Code to Download

use strict;;use integer;;use constant E=>4;;$-=
join$|=>pack+q{Z*},E<<untie my$noose or die;$/=
...
               $_}[@&],[reverse@[],[@[],[@@],[
               reverse splice@@,1,$#{@}],[$/];
die%%