C:\temp>wc corpse.pl
     14      33     266 corpse.pl

C:\temp>md5sum corpse.pl
6c2e30cce43e0cc641decdcc129ac9d9 *corpse.pl

C:\temp>tail -n 3 corpse.pl
    tr/\\//d,
      s/$bs;/\\/g
      for $key;