#!/usr/bin/perl
use strict;
use warnings;

while (<DATA>) {
	if ((my $first = /^\s*#if/) .. (my $last = /^\s*#endif/)) {
		#print if $first || $last;
		print unless /^\s*reports?/;
	}
	else {
		print;	
	}
}