Debian-Med/Tille/enczstrip.pl

#! /usr/bin/perl -w

$en = 0;        # english text
$ex = 0;        # excluded text

while(<>) {
if (/^\*-----/) {$ex = 1; next;}
if (/^\*\+\+\+\+\+\+/)  {$ex = 0; next;}
if (/^\*/) {$en = 1; next;}
if ($en && /^$/)  {$en = 0; next;}
if (!$en && !$ex) { print;}
}