$str =~ s/:.*?$//;