if ( $dir =~ /[^-\w]/ ) {
     print "\t$dir is not clean.\n";
} else {
     print "\t$dir is clean.\n";
}#close if