$filename =~ s/\.[^.]+\z//;