$/ = "";
while (<>) {
    my ($l1, $l2) = split /\n/;
    $l1 =~ /=/p; my $a1 = ${^POSTMATCH};
    $l2 =~ /=/p; my $a2 = ${^POSTMATCH};
    next if $a1 eq $a2;
    print;
}