my @headers;
for my $rulefile (@rulefiles){
    open my $INFILE, "<", $rulefile or die "Can't open  $rulefile $!";
    my $header;
    while ( my $line = <$INFILE> ) {
    	# see if this line contains opening bracket
    	if ( $line =~ m/\(/ ) {
    		my $pos = index( $line, '(' );
    		last unless $pos > 0;
    		$header .= substr( $line, 0, $pos );
    		last;
    	}
    	else {
    		$header .= $line;
    	}
    }
    close $INFILE;
    push( @headers, $header ) if $header;
}

for my $header ( @headers ) {
	print "\nHeader:\n$header\n";
	
	# now process the header
}