system (qq(grep $file /main23/loge/do.pl
/main22/loges/de.pl > out.txt));