my @lines = grep { /\.log$/ and -s "$source/$_" } readdir $DIR;