foreach (@recs) {
   $found{$1}++ while /\s-D(\S+)/g;
}
print "Found flags: ", join(" ", sort keys %found), "\n";