#!/usr/perl -w

@j=split //,"* -+|AVERGCLTHSUDNMI\n";@k=split /\s*/,

 "UB    RAD   U      BQAAB  DAAUB   PAA   B   F    A
A   U  B   P  A        A    B      F   A  A   U    B
O      A   A  B        H    A      A      U   B    N
A      ABJAA  U        B    LABBL  A      BUBIA    C
B      P   A  C        U    B      E      A   D    B
V   A  D   U  A        E    B      ^   A  E   U
 CWD   C   G  DCHUB    W    EBGEU   BEF   G   H    I

FJHBASTMBAOMPQHRMBGEUB_EUBIFGHIFJHBAKFLMHKNBAOMPQHRM
U";for($i=0;$i<110;$i++){#map{chr(ord$j[ord-65]},@k;
if(($j=ord(shift(@k))-65)<3){$k=(ord(shift(@k))-64)}
$k=1 if($j>2);$j=$j[$j];while($k!=0){print $j;$k--}}
[download]

Apologies to those who went to MIT.

The best thing about Perl is that you can do anything with it.
The worst thing about Perl is that you can do anything with it.