Help for this page

Select Code to Download


  1. or download this
    $/ = "";
/=(\N+)\n[^=]+=\1\n/ or print while <>;
  2. or download this
    perl -00ne'/=(\N+)\n[^=]+=\1\n/ or print' data-file