$str =~ s/^(.*):.*?$/$1/;