if ($file eq '/\.log$/i || /\.\d+\w+\-\d+\wm$/i')

##</code><code>##

    if ($file =~ m/\.log$/i  || 
        $file =~ m/\.\d+\w+\-\d+\wm$/i)