#!/usr/local/bin/perl
# fixwpps: get semi-conforming PostScript out of WordPerfect 5.0 file

# feed this into perl
eval 'exec perl -S $0 "$@"'
   if $running_under_some_shell;

$page = 1;
while (<>) {
   s/(_[a-zA-Z]+)([0-9]+)/\1 \2/g;
   if (/^_bp/) {
      print STDOUT "%%Page: $page $page\n";
      print STDOUT $_;
      $page++;
   } elsif (/^([^\/].*\S.*)(_bp.*)/) {
      print STDOUT "$1\n";
      print STDOUT "%%Page: $page $page\n";
      print STDOUT "$2\n";
      $page++;
   } elsif (/^_ed/) {
      print STDOUT "%%Trailer:\n";
      print STDOUT $_;
   } else {
      print STDOUT $_;
   }
}
