my $buffer;
while (<DATA>) {
	$buffer = $1 if /^(john.*)/;
	if ($buffer && /^jacob/) {
		print "$buffer > $_";
		$buffer = '';
	}
}