Select Code to Download

if( $var =~ m[1] and $var !~ m[1.*1] ) {
   ## $var contains exactly one '1' character.
}

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