my @lines = grep { -s && "$source/*.log" } readdir ($DIR); 

##</code><code>##

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