Select Code to Download

A raw stream of the printable text in a WordStar
file could therefore be discerned by masking off
...
sequences must be stripped.

See the description of symmetrical sequences below.

$/ = undef;
open FH, "< $wordstarfile" or die "craps. $!";
...
# turn off all high bits
$doc =~ s/([\xa0-\xff])/chr(ord($1) ^ 0x80)/eg;
print $doc;