$str =~ s/-/\.\./g;