#!/afs/athena/contrib/perl/perl

$_ = <>;
while ($_) {
    unless (/\sDUMP\s*$/) {
	print;
	$_ = <>;
    } else {
	@ln = ($_);
	while (($_ = <>) && (/\sDUMP\s*$/)) {
	    push (@ln, $_);
	}
	# @ln now has all DUMP lines, $_ has first non-DUMP line

	print @ln;
    }
}