my @Ds ;
while (<FILE>) {
  my @matches = /(-D\S*)/g and push @Ds,@matches ;
}