remove_string.pl

#!/usr/bin/perl -w

use strict;

my ($file, $string) = @ARGV;

opendir(local *DIR, "chrome/locale") or die "Could not open directory chrome/locale";
my @locales = sort {$a cmp $b} grep {!/[^\w\-]/} readdir(DIR);
closedir(DIR);

foreach my $locale (@locales) {
  open(local *FILE, "chrome/locale/$locale/$file") or die "Could not open file chrome/locale/$locale/$file";
  local $/;
  my $data = <FILE>;
  close(FILE);

  if ($file =~ /\.dtd$/) {
    $data =~ s/<!ENTITY\s+$string\s+"[^"]*">\s*//gs or (warn "String $string not found in file chrome/locale/$locale/$file" && next);
  }
  else {
    $data =~ s/^$string=.*\n//gm or (warn "String $string not found in file chrome/locale/$locale/$file" && next);
  }

  open(FILE, ">chrome/locale/$locale/$file") or die "Could not write file chrome/locale/$locale/$file";
  print FILE $data;
  close(FILE);
}