#!/usr/local/bin/perl -w-- # -*- perl -*-
#
# $Id: strip_headers,v 1.4 1995/04/24 13:29:05 ejb Exp $
# $Source: /home/ejb/scripts/RCS/strip_headers,v $
# $Author: ejb $
#

# This code, from the perl manual page, forces this to be run by perl from 
# perl, sh, or csh.  It must be first.
eval '(exit $?0)' && eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
& eval 'exec /usr/local/bin/perl -S $0 $argv:q'
    if 0;

#$whoami = ($0 =~ m,([^/]*)$,) ? $1 : $0;

while (<>)
{
    s/^>\s*//;
    m/^begin / && print;
    m/^M[^a-z]/ && print;
    if ($. > 2)
    {
	$sl = $lr;
	$lr = $pr;
	$pr = $_;
    }
    m/^end/ && do
    {
	print $sl unless ($sl =~ m/^M/);
	print " \n";		# handle clobbered second-to-last line
	print $pr;
    }
}