$/ = "";
/=(\N+)\n[^=]+=\1\n/ or print while <>;