Help for this page
perl -pe"s[&[0-9&]+][]g" infile >outfile
perl -pe"s[,([^,]*HCR.*$][1]; s[,([^,]*LCR.*$][2]; " infile >outfile