$str =~ s/.*?(?=-D)//;

##</code><code>##

($args) = $str =~ /(-D.*)/;