Help for this page

Select Code to Download

Select or download this

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