Select Code to Download

#!/usr/bin/perl

...
  ( $1 && $level++, $level ? $& : '', $2 && $level--)[1] /gesr;

print "$nested\n";

beginning a bend
before stuff
...
  end
  five
end