#!/usr/bin/perl
   foreach $file (@ARGV) {
   if (! open(INPUT,"<$file") ) {
   print STDERR "Can't open input file $file\n";
   next;
   }

   $newfile = $file;
   $newfile =~ s/\..*$/\.new/;
   if (! open(OUTPUT,">$newfile") ) {
   print STDERR "Can't open output file $newfile\n";
   next;
   }

   while (<INPUT>) {
   if ($_ =~ /^(.*) 0 0 0 z$/) {
         $font = $1;}
   elsif ($_ =~ /^\[(.*)\]e/) {
         print OUTPUT "0 To\n$1 0 Tp\nTP";
         print OUTPUT "\n$font Tf";
         print OUTPUT "\n0 Tr\n0 O\n0 g\n800 Ar";
         print OUTPUT "\n0 Ts\n100 Tz\n0 Tt\n1 TA";
         print OUTPUT "\n0 0 5 TC\n100 100 200 TW";
         print OUTPUT "\n0 0 0 Ti\n0 Ta\n0 0 2 2 3 Th";
         print OUTPUT "\n0 Tq\n0 0 Tl\n0 Tc\n0 Tw\n";
         }
   elsif ($_ =~ /^\%/) {
         print OUTPUT $_;}
   else {s/^.*\(/\(/gi;
         s/\)t$/\) Tx/gi;
         s/^T$/\(\\r\) TX\nTO/gi;
         print OUTPUT;}

   }
  close(INPUT);
  close(OUTPUT);
  $backupname = $file;
  $backupname =~ s/\..*$/\.bak/;

  unlink $backupname
      || die "Can't delete old backup file $backupname $!";
  rename $file, $backupname
      || die "Can't rename $file to $backupname $!";
  rename $newfile, $file
      || die "Can't rename $newfile to $oldname $!";
}