use strict;
use warnings;

local $/;
my @record;

for ( split /(.+Generic.+)/m, <> ) {
	next unless /\S/;
	s/\n+$//g;
	push @record, $_;

	if ( @record == 2 ) {
		$record[1] =~ s/(\n?.+?Generic\n)/print $1; ''/ge;
		print "@record\n" if "$record[0]$record[1]" =~ /---/;
		undef @record;
	}
}