Who needs data to print a JAPH? This needs to run from a file.

$/ = undef;
# now get all the data
seek (DATA , 0 , 0);
local $data = <DATA>;
@data = split /\r\n|\n/, $data;
  
# process data 
for (@data) {   
   tr/A-Za-z/n-za-m/;
   chomp;
}     
# check data length
for (@data) {                  
   $_= length $_;
}     
# pack and print it
for (@data) {
   $_ = pack (c1, $_+42*2.262);
   print;  
} 
# OK we are done!
  __END__
[download]

tachyon

s&&rsenoyhcatreve&&&s&n\w+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print