Select Code to Download

  # chain_lines takes a list of coderefs
  # The first sub in the chain is called with no input; subsequent one
+s are called
...
                      sub { join "\t", (split /\t/)[1,3,8] };
  # all_lines expands the iterator into a list of lines
  sort all_lines($i);

grep_lines {/^42/}