if( $var !~ m[(.).*\1] ) {
    ## $var contains no duplicate characters
}