Menor:<div><br clear="all"><div>#!perl -ln</div><div>$c{$`}[$l{$'}//=$i++]=/;/;$,=$&;}{print X=>keys%l;print$_,@{$c{$_}}[values%l]for keys%c</div><br><br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<br><br><div class="gmail_quote">2012/6/1 Fernando Oliveira <span dir="ltr"><<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div>#!perl -ln</div><div>/;/;$c{$`}[$l{$'}//=$i++]=1;$,=$&;}{print X=>keys%l;print$_,@{$c{$_}}[values%l]for keys%c</div><div class="im HOEnZb"><br><br><br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>


<br><br></div><div class="HOEnZb"><div class="h5"><div class="gmail_quote">2012/6/1 Fernando Oliveira <span dir="ltr"><<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>></span><br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div>#!perl -ln</div><div>/;/;$,=$&;$l{$'}//=$i++;$c{$`}[$l{$'}]=1}{print X=>keys%l;print$_,@{$c{$_}}[0..$i]for keys%c</div><div><br><br><br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>

<br><br></div><div class="gmail_quote">Em 1 de junho de 2012 15:06, Fernando Oliveira <span dir="ltr"><<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">



<div>/;/;$,=>amp;;$l{</div>}//=$i++;$c{[$l{}]=1}{print X=>keys%l;print $_,@{$c{$_}}[values%l]for keys%c</blockquote></div><br>
</blockquote></div><br>
</div></div></blockquote></div><br></div>