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) ;
}