perl -ne'print if /^[A-Z_]+ [a-z_0-9]+ = {/' *.c