Форум сетевых администраторов (http://netadmin.ws/forum/index.php)
- Другие (http://netadmin.ws/forum/forumdisplay.php?forumid=19)
-- just for fun (http://netadmin.ws/forum/showthread.php?threadid=4786)

just for fun

#!/usr/bin/perl -w
$\='`'|"'";$\++;$;='/'|'`';$;++;$;++;$;++;$,=$;;$,++;$/=$,;$/++;$:=$/;$:++;$_='%'|'`';$_.='`'|'#';$_.=$\;$_.='`'|'/';$_.=$".'"';$_.='@'|'*'&~'!';$_.="$:$,$/".$";$_.='`'|'!';$_.='`'|'.';$_.='/'|'`';$_.=$/.$\;$_.='%'|'`';$_.=$;.$";$_.='@'|':'&~'*';$_.='`'|'%';$_.=$;;$_.='`'|',';$_.=$".$\;$_.='`'|'!';$_.='#'|'`';$_.='+'|'`';$_.='`'|'%';$_.=$;.'"'.$".'>&';$_.=$,&':';`$_`;

Попробуйте запустить. �_то все ДВЕ строки, одна из которых "#!/usr/bin/perl -w"

Ну скажем так строки то две, но операторов - 45. Да и строк на самом деле столько же, если считать ; концом строки как и положено.

__________________
Типа спициялист по елехтронной комэрцыи. Крут не по децки.