system(q[ls -r1 *BC*.txt | grep -v Liver |awk '{split ($1,name,"."); printf name[1]"\n"}' > BCfile.name]);