#!/usr/bin/perl -w            # cooking with perl -- "mmm I hope it's pie"
use strict;
{
   $_.=<DATA>;           # read one line of <DATA>
   redo if !eof(DATA);   # read all of data into $_
}
s/[ \n3A-Z]//g;          # delete any newline, any digit '3'and any A-Z
s/000/032/g;                             # switch any 000 with a 032
my @z = split //;        # Puts $_ into the array @z  
for (my $i=0;$i<24;$i++) # 23 loops
{ 
  $_[@_] = "$z[@_*3]$z[@_*3+1]$z[@_*3+2]"  # Chops $_ into three digit sections
}
my $z;
map $z .= chr($_),@_; # maps each three digit sequence into chr($_) to create each letter in the japh 
$_ = $z."\n"; #Throws a new line to the end of the $z and stores it into $_
print; # prints $_