my $oldfile = $_;
s/ /_/g;