Sem entrar no mérito de diversos problemas no seu código (afinal você é beeem novo em Perl e eu não tirei o certificado de ogro ISO-42000 :-) ) , seu problema atual é essa linha:<br><br> $string .= ".$u";
<br><br>o seu array @arquivo2 tem vários pedaços, e você está colocando "." na frente de cada um deles. Você quer colocar "." entre eles:<br><br>$string = join ".", @arquivo2;<br><br>Mas daqui a pouco alguém te sugere os jeitos mais "certos" :-)
<br><br><div><span class="gmail_quote">On 5/9/07, <b class="gmail_sendername">Leonardo Costa</b> <<a href="mailto:leocostabh@gmail.com">leocostabh@gmail.com</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
$string .= ".$u";<br><br>Mas obviamente isso remonta o arquivo dessa forma: .blablabla.txt<br>Com um "." a mais no inicio.<br>
<br>Eu sou beeem novo em Perl :)<br><br>[ ]'s<br><span class="sg"><br>Leonardo.<br>
</span><br>_______________________________________________<br>Cascavel-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>[]s<br>Wendel<br><br>"Não ajustar o auto-ajuste" - <a href="http://wendel.scardua.net/">http://wendel.scardua.net/
</a>