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

##</code><code>##

perl -00ne'/=(\N+)\n[^=]+=\1\n/ or print' data-file