#!/usr/bin/perl -w

 sub doit {

     my ($file) = @_;

     open (FILE, $file) || die $!;

     undef $/; $text = <FILE>; $/ = "\n";

     close FILE || die $!;

     $_ = $text;

     s/text_raw\{\*([^*]|\*[^}])*\*\}//sg;       # actual work done here

     s/text\{\*([^*]|\*[^}])*\*\}//sg;       # actual work done here

     s/\(\*<\*\)//sg;

     s/\(\*>\*\)//sg;

     s/--(\ )*"([^"])*"//sg;

     s/--(\ )*\{\*([^*]|\*[^}])*\*\}//sg;

     $result = $_;

     if ($text ne $result) {

         print STDERR "fixing $file\n";

 #        if (! -f "$file~~") {

 #            rename $file, "$file~~" || die $!;

 #        }

         open (FILE, "> Demo/$file") || die $!;

         print FILE $result;

         close FILE || die $!;

     }

 }

 foreach $file (@ARGV) {

   eval { &doit($file); };

   if ($@) { print STDERR "*** doit $file: ", $@, "\n"; }

 }