ele &quot;retira&quot; os 2 primeiros caracteress de $_ e os coloca ao fim do $_ por meio do $1.<br>E imprime o terceiro caractere.<br><br>Isso faz com que o valor de $_ se altere continuamente, e a cada alteração o terceiro caractere é o necessário para a sequência da formação da frase.
<br><br>Veja os caracteres de 3 em 3 que você entenderá. :D<br><br>Abraços,<br><br>Gabriel Vieira<br><br><div><span class="gmail_quote">On 9/6/06, <b class="gmail_sendername">Nelson Ferraz</b> &lt;<a href="mailto:nferraz@gmail.com">
nferraz@gmail.com</a>&gt; wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Iberê Oliveira Kuntz se Souza wrote:<br>&gt; Estava eu navegando pelo google(como de costume), quando encontrei essa
<br>&gt; expressao:<br>&gt;<br>&gt; $_=&quot;krJhruaesrltre c a cnP,ohet&quot;;$_.=$1,print$2while s/(..)(.)//;<br><br>Você pode começar melhorando o espaçamento do código:<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$_ = &quot;krJhruaesrltre c a cnP,ohet&quot;;
<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$_ .= $1, print $2 while s/(..)(.)//;<br><br>Depois você pode &quot;desinverter&quot; o while:<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$_ = &quot;krJhruaesrltre c a cnP,ohet&quot;;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;while ( s/(..)(.)// ) {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$_ .= $1;
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print $2;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}<br><br>Entendeu? :D<br><br>--<br>Nelson Corrêa de Toledo Ferraz<br><br>Segula Technologies (<a href="http://www.segula.fr">www.segula.fr</a>)<br>Free Software Foundation Associate Member #3203
<br>Sociedade Perl do Brasil (<a href="http://www.perl.org.br">www.perl.org.br</a>)<br>Rede Livre de Compartilhamento de Cultura Digital<br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">
Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br>