first try

$^W=0;no strict;
s/.*/!2 14r01yedk18cgaghxi01xlxr14eqpv15ixrexhytxq01oqnabiwtxsvuxjx/;
(undef,$v,$u)=split(//);($r=$_)=~s|[a-z]||g;
foreach($r=~/\d{$v}/g){$s.=chr('1'.$_);}
eval"\$_=$s\$_;s\$i\$$u\$g";print
if(s/[0-9bdfgmqvw-z]|([acehjklnoprstu])/$1/g&&s/\s!$/!\n/);
[download]

Comment on first try Download Code

Replies are listed 'Best First'.
Re: first try by DHawk (Novice) on Dec 17, 2003 at 23:18 UTC
one more, i just couldn't resist posting it... `$s='Kutt!aoouhfr!Pfrm iadkfr"';while($s){print&s;}sub s{++$c;$y=$d;foreach(split(//,$s)){$s[$d++]=chr((ord()-($c%2))) ;};$s=substr($s,1,length($s));return$s[$y];}` [download]	[reply] [d/l]
Re: first try by one4k4 (Hermit) on Dec 17, 2003 at 18:39 UTC
I like it! Good job! One4k4 - perlmonks@poorheart.com (www.poorheart.com)	[reply]
Re: first try by duff (Parson) on Dec 17, 2003 at 19:03 UTC
Indeed. Quite good duff	[reply]
Re: first try by DHawk (Novice) on Dec 17, 2003 at 20:41 UTC
* smile * thanks people	[reply]