#!/usr/bin/perl -w

use strict;

my $in = "file.bbl";          # customize here
my $tmp = "tmp1556754.tmp";
my $line;

open (F1, "<$in")  || die();
open (TO, ">$tmp") || die();
while (<F1>)
{
   chomp;
   $line = $_;
   if ($line =~ m#G\.~e\.~a\. Siest\.#)   # change this string to something else
   {
      # here the author list was too long
      $line = 'G.~Siest {\em et al}.';
   }
   elsif ($line =~ m#\\newblock \(in French\)\.#)
   {
      # looks better without a final period
      $line = '\newblock (in French)';
   }

   print TO "$line\n";
}
close F1;
close TO;

unlink($in)       || die("$0: cannot delete $in!\n");
rename($tmp, $in) || die("$0: cannot rename $tmp to $in!\n");