if( $password =~ m/^[DesiredCharactersHere]+$/ ) {

    it's "reasonable"
}
else {

    it's not reasonable
}