Help for this page
$ perl -ni -e 'print unless /&/' filename
-p -i.bak -e 's/13HCR-NIH-0/1/g' filename