# 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 . "#define " . $guard . $_ . "#endif\n"
  }
}