<div>C:\>perl -lnE"/;/;$,=$&;++$m{$`}{$'}}{say X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a" tabela.txt</div><div>X;Joao;Pedro;Manoel</div><div>Joao;;1;</div><div>Pedro;;;1</div><div>Manoel;;1;</div><br><br>

<br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<br><br><div class="gmail_quote">2012/6/1 breno <span dir="ltr"><<a href="mailto:breno@rio.pm.org" target="_blank">breno@rio.pm.org</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div id=":517">perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=";";say<div class="yj6qo ajU"><div id=":4xf" class="ajR" tabindex="0"><img class="ajT" src="images/cleardot.gif"></div></div><div class="adL"><br>
</div><div class="im HOEnZb adL">X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt</div></div></blockquote></div><br>