#!/usr/bin/perl -wp
# Replace “long” with “int”, but only outside of C comments.
1 while s#\A((?:[^/]|/+[^/*]|/+\*(?:[^*]|\*+[^*/])*\*+/)*)long#$1int#;