<span style>perl -lnE'/;/;$,=$&++$m{$`}{$´}}{</span><span style>say X=>@a=keys%m;say</span><span style>$_,@{$m{$_}}{@a}for@a' tabela.txt</span><span style><br></span><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=":3m7">perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=";";say X=>@a=keys%m;say<br>
<div class="im">$_,@{$m{$_}}{@a}for@a' tabela.txt</div></div></blockquote></div><br>