$str =~ s/:[^:]*$//;