use strict;
my @f;
use warnings;

##</code><code>##

open 0;
$/= \11;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

  write;
}

##</code><code>##

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