chdir '/var/log/cr_user/';

# or

use File::Spec;
my $dir = '/var/log/cr_user/';

my @files = map { File::Spec->catfile( $dir, $_ ) } 
    grep { $_ !~ /^\.{1,2}/ }
    readdir DIR;