230 004 333 343 321 433 324 400 143 014 312 443 202 432 431 243
211 403 241 343 314 310 441 024 324 323 431 432 334 300 432 134 

##</code><code>##

230004 33334 33214 33324     4
  0014  3014  3124     4 32024
   324  3124 32114  0324   134
  3314  3104     4  1024   324
  3234   314 32334  3004 32134

##</code><code>##

01222 1111 1103 1110    0
  223  123  130    0 1020
   10  130 1033  210   31
  113  132    0  320   10
  101   13 1011  122 1031

##</code><code>##

hex values:
6a 55 53 54  0
2b 1b 1c  0 48
 4 1c 4f 24  d
17 1e  0 38  4
11  7 45 1a 4d

##</code><code>##

20 20 20 20 20 $_ = "     "
6a 55 53 54  0 @|
4a 75 73 74 20 $_ = "Just "
2b 1b 1c  0 48 @|
61 6e 6f 74 68 $_ = "anoth"
 4 1c 4f 24  d @|
65 72 20 50 65 $_ = "er Pe"
17 1e  0 38  4 @|
72 6c 20 68 61 $_ = "rl ha"
11  7 45 1a 4d @|
63 6b 65 72 2c $_ = "cker,"

##</code><code>##

#! /usr/bin/perl
# $;=$\;$_=$"x5;$b=$|;for$%(map{$_*.04,$_/5=>$_}map{ord}split??,
# "A\4]bVvYd0\tR{4utI8gGbTPy\cNYXtu^Ku,"){if($%%5&4){$|[$a++]=chr
# $;;$;=0;print$_^=join$\,@|if!($a%=5);}else{$;=($;*4+$%%5^2);}}

use strict;
# use warnings;

$; = $\;
# undef
$_ = $" x 5;
# "     "
$b = $|;
# misdirection
foreach $% ( map { $_ * 0.04, $_ / 5, $_; }
    map( { ord $_; } split ( ??, "A\cD]bVvYd0\tR{4utI8gGbTPy\cNYXtu^Ku,", 0 ) )
  )
# { print $%%5; } # 3-digit base 5 expansion
{
    if ( $% % 5 & 4 ) {
# terminate base-4 number
        $|[ $a++ ] = chr $;;
        $; = 0;
# after 5 characters, xor and print
        print $_ ^= join ( $\, @| ) if not $a %= 5;
    }
    else {
# interpret base-4 number after xor'ing digits w/2
        $; = $; * 4 + $% % 5 ^ 2;
    }
}