eudora-mac/tmp/tmp03e8

<>;<>;while(<>){s/^[A-Za-z]+/extern $&/;s/ = .*/;/;s/^\s*{.*\n//;print;}