Help for this page
my @lines = grep { -s && "$source/*.log" } readdir ($DIR);
my @lines = grep { /\.log$/ and -s "$source/$_" } readdir $DIR;