Greg Allen wrote:
>
> Hurrah: a decoder.. much borrowed, too much added (scores 105).
>
> #!perl -p
>
>s#\pL+(`\pL*)?#$_=$&;$1||s/(..)(..)/$1`$2/;/`/?($l=()=/../g)&&join'',/([^`])(?=.{$l}(.)?)/g:reverse#eg
Routine clean-up to 83:
#!perl -p
s#[a-z`]+#$_=$&;s/^..(?=..$)/$&`/;/`/?join'',/(\w)(?=.{$-[0]}(.?))/g:reverse#egi
--
Rick Klement
