#!/usr/bin/perl	-w
use strict; local *D = *DATA; local	# Tramm Hudson (hudson@swcp.com)
$_=<D>;seek(D,9,0);$ {_}=<D>. <D>;; ;$_=<DATA>;&p;$_ =<D>;
&p;$_=<D>;&p();sub p{chomp$_;s{ ([^\s]+)}{ length$1}gxe&do
{for(split){print(chr ($_+ord('a')-1))}} };print("\n",) ; exit(0xDEAD)
					# Do not edit!  There be dragons
__END__
theperljournal
