Select Code to Download

my $pw_re = qr{ \A (?: .{20,} | (?=.*[a-z]) (?=.*[A-Z])
        (?: .{16,19} | (?=.*[0-9]) (?: .{12,15}
            | (?=.*[\x21-\x2F\x3A-\x40\x5B-\x60\x7B-\x7E]) .{8,11}
    ) ) ) \z }msx;

use warnings;
use strict;
...
  like 'aaaaaaaaaaaaaaaaaA0-', $pw_re;
  like 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa', $pw_re;
done_testing;