Select Code to Download

use strict;
my @f;
use warnings;

open 0;
$/= \11;

my $i = 0;
while (<0>) {
  chop;

  push @{ $f[$i] }, $_;
  $i = ( $i + 1 ) % 3
}
close 0;

$m->[$_] ||= '';
$r->[$_] ||= '';

format it=                      
@<<<<<<<<< @<<<<<<<<< @<<<<<<<<<
$l->[$_], $m->[$_], $r->[$_],
.

  write;
}

@_=qw;
Just another Perl hacker,;
;$_=q=print
"@_"= and eval;