$file =~ s/\.[^.]*$//;