if( $folder !~ /^[\w. -]+$/ ) {
        print "I don't like your $folder\n";
    }