@filesa = split(/\n/,`ls | grep txt`);
foreach(@filesa){
