<div dir="ltr">Luiz falei que quando acabava o desafio postava na lista.<br>O Eden *.* e o Blabos me ajudaram.<br>wget <a href="http://mail.pm.org/pipermail/saopaulo-pm/2008.txt">http://mail.pm.org/pipermail/saopaulo-pm/2008.txt</a><br>
<br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br>open(ARQ,&quot;&lt;2008.txt&quot;);<br>my @arquivo = &lt;ARQ&gt;;<br>my @more = ();<br>foreach (@arquivo){<br>my @more = unshift(@more,$1) if $_=~ /(\w{4,}\S+)\+\+/g<br>
}<br>for (0 .. scalar(@more) -1){<br>$more[$_] =~ s/\s.*//<br>}<br>my %hash;<br>$hash{$_}++ for @more;<br>print &quot;$_ = $hash{$_}\n&quot; for keys %hash<br><br>Cambada de cuecas meninas 19.<br>Meninas estão ganhando meninas++<br>
-- <br>Daniel de Oliveira Mantovani<br>&quot;A sede pelo aprendizado é insaciável&quot;<br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>------------------------------------------------------------<br>

</div>