my $directory = ".\\folder";
opendir (DIR, $directory) or die $!;
                         while (my $fldr = readdir(DIR)) {
                         if ($fldr =~ m/log?/){
                         print $fldr, "\n";
                         } }

##</code><code>##

(10.10.10.1).log
(10.10.10.2).log
..................
..................
Press any key to continue . . .