#!/usr/athena/bin/perl
#
# This is something which strips out the table of contents from a digest.
#
while (<>) {
if (/^Linux-Activists Digest/) {
print;
last;
}
}
while (<>) {
if (/^-------------------------------------------------------/) {
print;
last;
}
print;
}
