hi monks, i wanted to select only the each and every non empty file i had script like this

foreach $f (@files){
.....
readfile...given path
writefile.... some otherpath
}
[download]

how can i select each non empty files?? and transfer them out i follwed by !-z option but it doesnt work out