<div>perl -lnE'/;/;$,=$&;++$m{$`}{$'}}{say X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt</div><div><br></div><div><br></div><div>Esse funciona</div><br><br><br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>


<br><br><div class="gmail_quote">Em 1 de junho de 2012 13:17, 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">

Tem algo errado<div class="HOEnZb"><div class="h5"><div><br clear="all"><br><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">


<span>perl -lnE'/;/;$,=$&;++$m{$`}{$´}}{</span><span>say X=>@a=keys%m;say</span><span>$_,@{$m{$_}}{@a}for@a' tabela.txt</span> <div><br></div><div>tinha esquecido o ";"<div><br clear="all">

<br><br><br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<br><br></div><div><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">



<span>perl -lnE'/;/;$,=$&++$m{$`}{$´}}{</span><span>say X=>@a=keys%m;say</span><span>$_,@{$m{$_}}{@a}for@a' tabela.txt</span></blockquote></div><br></div></div>
</blockquote></div><br></div>
</div></div></blockquote></div><br>