while (<>) {
	if (/^#/) {
		print "$id\n$s\n\n" if (&limpa($s));
		undef $s;
		($id)=($_=~/(C[FP]\d+-\d+)/);
	}
		else { $s.=$_;
	}
}

sub limpa {
	$x=pop @_;
	return ($x=~s#\(##g - $x=~s#\)##g );
}