Select Code to Download

use Data::Dumper;

...
my $pswd = "abcdbd";
print (($pswd =~ $unqchar5_regex)?"Pass\n":"Fail\n");
print Dumper \%_;

my $unqchar5_regex = qr/^(?{%_=()})(?:(.)(?{$_{$1}++}))+
                         (?{warn Dumper \%_})
                         (??{warn scalar(keys %_)." $1\n";
                             (scalar(keys %_)<5)?~$1:''   })$/x;