aaee, muito obrigado.. agora consiguir entender esse code.<br>mas tenhos alguns outros aqui que nem parece programaçao e sim magica, olhem(todos esses imprimi "Just another Perl hacker") :<br><br><pre>not exp log srand xor s qq qx xor<br> s x x length uc ord and print chr<br> ord for qw q join use sub tied qx<br> xor eval xor print qq q q xor int<br> eval lc q m cos and print chr ord<br> for qw y abs ne open tied hex exp<br> ref y m xor scalar srand print qq<br> q q xor int eval lc qq y sqrt cos<br> and print chr ord for qw x printf<br> each return local x y or print qq<br> s s and eval q s undef or oct xor<br> time xor ref print chr int ord lc<br> foreach qw y hex alarm chdir kill<br> exec return y s gt sin sort split</pre><br>observem que soh se usa funçoes.<br>Esse outro:<br><br><pre>$_ = "wftedskaebjgdpjgidbsmnjgc";<br>tr/a-z/oh, turtleneck Phrase Jar!/; print;</pre>&nbsp;E esse: <br><pre>$_='987;s/^(d+)/$1-1/e;$1?eval:print"Just another Perl hacker,"';eval;</pre>nesse
 ultimo eu nao entendi a funçao do eval, na verdade ateh hoje nao entendo a funçao do eval, jah li varias vezes sobre e soh entendo que ele intercepta erros em runtime.<br>Tentem ae por favor, obrigado.<br>vlw mongers!!<br><p>&#32;
                <hr size=1> 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. <a href="http://us.rd.yahoo.com/mail/br/tagline/mobile_alerts/*http://br.mobile.yahoo.com/mailalertas/">Registre seu aparelho agora!</a>