foreach my $log ( sort keys %logfiles ) { next if $log !~ /\./ || $log =~ /^\./;