# find base '(' -name '*.cc' -o -name '*.mm' -o -name '*.h' ')' -exec perl -pi rewrite.pl {} \;
# find chrome '(' -name '*.cc' -o -name '*.mm' -o -name '*.h' ')' -exec perl -pi rewrite.pl {} \;
# find gfx '(' -name '*.cc' -o -name '*.mm' -o -name '*.h' ')' -exec perl -pi rewrite.pl {} \;
if (/^#include "([^\/"]+)([^"]*)/) {
  my $guard = uc $1 . uc $2 . "_\n";
  if ($1 =~ /base|gfx|chrome/) {
    $guard =~ s/[\/.-]/_/g;
    $_ = "#ifndef " . $guard . $_ . "#endif\n"
  }
}