$/ = "\n\n";
open A,"<",a;
while(<A>)
{
  ($d,$r) = split("\n",$_);
  $x{$d} = $r;
}
close A;

undef $/;
foreach my $file (glob("../i18n/po/*"))
{
  print "$file\n";
  open FILE,"<",$file;
  $x = <FILE>;
  close FILE;
  $x =~ s/"\n"//g;
  foreach my $s (sort keys %x)
  {
    if(!($x =~ s/(msgid[ \n\t]+")\Q$s\E/\1$x{$s}/))
    {
      print "$s not found in $file\n";
    }
  }
  open FILE,">",$file;
  print FILE $x;
  close FILE;
}