$file =~ s/$/\.bak/;
print "$file\n";