#!/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;
}