$bcsdir = (<${bcsdir}*>)[0];