@found{/(-D\S*)/g} = ();
print "$_\n" for( sort keys %found );