$str = s/.*\-D*?//;