perl -pe"s[&[0-9&]+][]g" infile >outfile

##</code><code>##

perl -pe"s[,([^,]*HCR.*$][1]; s[,([^,]*LCR.*$][2]; " infile >outfile