foreach my $file (@allfiles) {
open FROM,"$file" || die;
my $outfile = "$file";
$outfile =~ s/.(html|php)$/.new.$1/;
open TO,">$outfile" || die;
foreach my $file (@allfiles) {
open FROM,"$file" || die;
my $outfile = "$file";
$outfile =~ s/.(html|php)$/.new.$1/;
open TO,">$outfile" || die;