q is your friend.

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

antirice    
The first rule of Perl club is - use Perl
The ith rule of Perl club is - follow rule i - 1 for i > 1