use strict;

my $BASE = 4;
my %NUC_PAIRS = (
  A => T =>
  C => G =>
  G => C =>
  T => A =>
);
my @DIGIT_TO_NUC = qw( A C G T );
my $FMT_DNA = <<END;
 01
0--1
0---1
0----1
 0----1
  0---1
   0--1
    01
    10
   1--0
  1---0
 1----0
1----0
1---0
1--0
 10
END
my @FMT_DNA = split "\n",$FMT_DNA;

my $str = 'print"Just Another Perl Hacker\n"';

my @str_digits;
for (split//, $str) {
  my $ord = ord($_);
  my @digits = (0) x 4;
  print "$ord:\t";
  my $i = 0;
  while ($ord) {
    $digits[4 - ++$i] = $ord % $BASE;
    $ord = int ($ord / $BASE);
  }
  print "@digits\n";
  push @str_digits, [@digits];
}

my $i = 0;
for (@str_digits) {
  for (@$_) {
    my $fmt     = $FMT_DNA[$i++ % @FMT_DNA];
    my $nuc0 = $DIGIT_TO_NUC[$_];
    my $nuc1 = $NUC_PAIRS{$nuc0};
    $fmt =~ s/0/$nuc0/;
    $fmt =~ s/1/$nuc1/;
    print "$fmt\n";
  }
}