Select Code to Download

sub ctx {
  print "$_[0] ";
...

ctx(1)->(2,ctx(3),ctx(4))->(5,ctx(6))->(7,ctx(8));
print "\n";

8 6 3 4 1 2 5 7

perl -e '&{die("ONE")}(die("TWO"))'
perl -e 'die("ONE")->(die("TWO"))'

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/