$str =~ s/.+\K:.*?$//;