#!/usr/local/bin/perl
my @str = (
	   q#This voice is not licensed.  Please visit www.cepstral.com to purchase a license.#,
	   q#Please register me.#,
	   q#Cette voix n'est pas sous licence.  Pour acheter une licence valide visitez le site www.cepstral.com.#,
	   q#sta voz no está licenciadada.  Por favor visite www.cepstral.com para adquirir una licencia#,
	   q#diese Stimme. Bitte kaufen sie einen gültigen Produkt-key bei www.cepstral.com#,
	   q#Enregistrez-moi s'il vous plait.#,
	   q#Sie haben keine Lizenz#
	  );



for my $target (@ARGV) {
  system("/bin/mv $target ${target}.real");
  open I, "${target}.real";
  binmode I;
  $/ = undef;
  $file = <I>;
  $/ = "\n";
  close I;

  open O, ">$target";
  for my $s (@str) {
    $n = " " x length($s);
    print "\n[$s]\n[$n]\n";
    $file =~ s/$s/$n/g;
  }
  print O $file;
  close O;
  print "Patched $target\n";
}