#!/usr/local/bin/perl

# WordPerfect decoder hack
# $Id: wptext,v 1.1 1997/04/23 20:23:37 czyborra Exp $

$_ .= $x while $x = <>; $*=1;

s/À
À/"a/g;
s/À
À/"A/g;
s/À\?
À/"o/g;
s/ÀF
À/"U/g;
s/ÀG
À/"u/g;
s/À
À/"s/g;

s/Â[^Âa]+Â//g;
s/Ä[^Äa]+Ä//g;
s/Ô[^Ôa]+Ô//g;
s/Æ[^Æa]+Æ//g;
s/Ã[^Ãa]+Ã//g;
s/Ð[^Ða]+Ð//g;

s/SHEET//g;
    
s/­|-|¬|Œ|™//g;
s/©/-/g;
s/
/ /g;

tr/\012\015\040-\177//cd;

s/"A/Ä/g;
s/"O/Ö/g;
s/"U/Ü/g;
s/"a/ä/g;
s/"o/ö/g;
s/"u/ü/g;
s/"s/ß/g;

print;