#!/usr/local/bin/perl -w
use Inline::Files;

my ($a,$b,$a_end,$b_end);
for($a=<A>, $b=<B>;
    ! $a_end || ! $b_end;
    ($a_end or $a=<A>), ($b_end or $b=<B>)) {
  $a_end=1, $a='' unless defined $a;
  $b_end=1, $b='' unless defined $b;
  chomp($a);
  chomp($b);
  printf "%35s  |  %35s\n", $a, $b;
}

__A__
This is a block of text.
Note that this text had best
have *SHORT* lines, or we
could have some formatting
trouble!
__B__
The quick brown fox jumps
over the lazy dog.  The cow
jumps over the moon.