$/ = "";
while (<>) {
    /=\s*([^\n]+).*=\s*([^\n]+)/s;
    print unless $1 eq $2;
}