foreach $filename (@files) { open FILEIN, "<", $filename; open FILEOUT, ">", $filename."new"; while (my $data = ) { $data =~ s/red/blue/g; print FILEOUT $data; } close FILEIN; close FILEOUT; }