Select Code to Download

perl -e 'undef $/; 
         $ENV{f}=$ARGV[0]; $_=`cat -- "\$f"`;
         s/^(\w+[^\n;]*?\([^\n;]*\n\{\n)[\s\S]+?\n(\}\n)/$1$2/mg; 
         print' FILE.c > FILE_MODIFIED.c