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

##</code><code>##

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

##</code><code>##

Backslash found where operator expected at new.perl line 6, near ""); printf name[1]"\"
        (Missing operator before \?)
syntax error at new.perl line 6, near ""); printf name[1]"\"
String found where operator expected at new.perl line 6, near "n"}' > BCfile.name""