my $reg = "alguma.coisa";<br>$reg =~ s/^(.).*(\.)/$1$2/;<br>print "$reg\n";<br><br>isso imprime "a.coisa".<br><br>Falo.<br><p>&#32;__________________________________________________<br>Fale com seus amigos  de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/