Hello Rick! [EMAIL PROTECTED] (Rick Klement) wrote:
> Routine clean-up to 83:
>
> #!perl -p
> s#[a-z`]+#$_=$&;s/^..(?=..$)/$&`/;/`/?join'',/(\w)(?=.{$-
[0]}(.?))/g:reverse#egi
aah, this's the challenge for my horse (82):
-p s#[a-z`]+#join'',@_[(split//,$&)>3?map{$_-1,$_+@_/2-
(@_<5)}1..@_/2:(2,1,0)]#ieg
---
Mtv Europe
