replace existing text within multiple text files: How?

[Gerald Wheeler]

I have about 400 text files I need to replace the contents. All files
are in the current directory as the perl script runs out of

my $newText = "This is my new text.. anybody's text goes here";

open(INFILE, $plants)
while (<>)
{
     print $newText;
}

I need help..

Thanks


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/