> Rápido, mas preciso disso num script. :-D use Tie::File; tie @array, 'Tie::File', $filename or die; s/senha/xxx/g for @array; untie @array; - Flavio S. Glock