Just to complete the record, if anyone wants to insert their own content and doesn't have a trinary-coded octal encoder handy, here's the one I used:

#!/usr/local/bin/perl -w
use strict;

my @tr = ( '00', '01', '02', 10, 11, 12, 20, 21 );

for my $t (@ARGV) {

  $t =~ s{.}{  $_ = sprintf "%03o", ord $&;
               s/(?<=.)./$tr[$&]/g;
               $_." "
            }ge;

  $t =~ s/.{66}/$&\n/g;

  print $t . "00112\n";
}
[download]

  p