Just another Perl hacker,

Здесь представлены программы на перле, которые нетривиальным образом выдают "just another perl hacker". Ждем ваших сабмитов на VenROCK@list.ru



Venl2OCK
$_='it does act as i wish, kids! :-)',/^.{8}?(.{2}?).{10}?(.{1}?).{2}?(.)/,$c=$2.$1.$3,$s=$c;
for(0..572334){($_==(4**4)**2-((4*4).(4).(39))&&($a=$s))||(($_-143703)**2||($b=$s));$s++}
2*$b=~m&^.(..)&&print"$a $s$1 $b $c$1";


okovalev
eval'pjq}';$_=$@;for$;(split q e,e,q 
zq,rl,yn,c,r,t,m,f,c,e,d,i,r,j,d,l,y,r,e,t,h,et,d,iz){print/(.)$;/}


okovalev
$"='a';eval'sub 
'.$"++."{'".$_.q
['}]for j,u,q,s,
,t,a,n,o,h,er,p,
l,c,k,' ';print&
{$_}for a..d,n,e
..g,d,h,i,n,j,i,
k,n,h,e,l,q,m,,i


okovalev
s kkq spbhjd ap hbqcp  jhp ar pdph   bidprs
|q nprafp pa rhepd algthdb  abd hacjabhnkee