my $per = `ls $dir`;

if($per =~ /denied/){

// statement