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