my @flags = ();

while (<DATA>) {
    push @flags, /(-D\S+)/g;
}

use Data::Dump qw(dump);
print dump(\@flags);

__DATA__
     -D__c_plusplus=1 -D__cplusplus=1 \
     -D__NAMESPACES -D__STANDARD_CXX \
     -D__ghs -Dghs -D__SoftwareFloat \
     -D__m68k -Dm68k -D__mc68000 \
     -D__m68ec060 -Dm68ec060 

__END__

Result:
[
  "-D__c_plusplus=1",
  "-D__cplusplus=1",
  "-D__NAMESPACES",
  "-D__STANDARD_CXX",
  "-D__ghs",
  "-Dghs",
  "-D__SoftwareFloat",
  "-D__m68k",
  "-Dm68k",
  "-D__mc68000",
  "-D__m68ec060",
  "-Dm68ec060",
]
[download]

gav^

Dear gav^ , here is a sample output :

-D__PROTOTYPES__ -D__STDC__=0 -D__c_plusplus=1 -D__cplusplus=1 \
    -D__LANGUAGE_CXX -D__LANGUAGE_CXX__ -D__NAMESPACES -D__STANDARD_CX
+X \
    -D__STANDARD_CXX_HEADERS -D__ghs__ -D__ghs -Dghs -D__SoftwareFloat
+ \
    -D__SoftwareDouble -D__COFF -D__m68k__ -D__m68k -Dm68k -D__mc68000
+ \
    -Dmc68000 -D__MC68000 -DMC68000 -D__motcoff -D__m68ec060 -Dm68ec06
+0 \
    -D__ghs_alignment=4 -D__BigEndian -DBigEndian -D__DOUBLE_HL \
    -D__IeeeFloat -DIeeeFloat -D__Ptr_Is_Signed__ -D__Char_Is_Signed__
+ \
    -D__SIGNED_CHARS__ -D__WChar_Is_Signed__ -D__WChar_Is_Long__ \
    -D__Int_Is_32 -D__Long_Is_32 -D__Ptr_Is_32 -D__Reg_Is_32 \
    -DSEL_AIS_TARGET -DAIS_BUILD -DINCLUDE_XDM_SWERR -DXDM_ON \
    -DXDM_DIRECT -DXDM_SYNC -DTARGET_PROTO \
    -DACN_SUPPORTS_SIGNALING_SERVICES -DGH_DEBUG \
    -DACN_SUPPORTS_TRAFFIC_SERVICES -DPIMTUNE_ACN_APP -DNOIS_USES_CCLH
+C \
    -DACL_SUPPORTS_STREAMS -DPIM_PFB -DESELVER_NTGB06CA -DSELREV_X2 \
    -DTARGET_ESEL -DLOG_VOCODER_STATS -DOFP_SUPPORTED -DDEBUG \
    -DSRM_DEBUG_TURN_ON -D_GH -DTARGET_060 -DMEMMONITOR \
[download]

It looks bad sorry, but do you know of any other way , I can get rid of the "\" at the end of each line without using Data:Dump thanks much

Edit: Added <code> tags. larsen

This will read from a FILE filehandle and put the -D chunks in an array. I hope you could adapt it to fit your needs

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

Ciao!
--bronto

# Another Perl edition of a song:
# The End, by The Beatles
END {
  $you->take($love) eq $you->made($love) ;
}