my @lines = grep { -s && "$source/*.log" } readdir ($DIR);
foreach my $file (@lines){
$newfile =~ s/\.old$/.new/;
open READFILE, "$..../$file";
open WRITEFILE, ">$d../$newfile";