use warnings;
use strict;

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

use Test::More;
unlike '', $pw_re;
unlike 'aA0-', $pw_re;
unlike 'aA0-aA0', $pw_re;
  like 'aA0-aA0-', $pw_re;
  like 'aaaaaA0-', $pw_re;
  like 'aaaaaaaaA0-', $pw_re;
unlike 'aaaaaaaaa0-', $pw_re;
unlike 'aaaaaaaaAA-', $pw_re;
unlike 'AAAAAAAAA0-', $pw_re;
unlike 'aaaaaaaaA00', $pw_re;
  like 'aaaaaaaaaaA0', $pw_re;
  like 'aaaaaaaaa-A0', $pw_re;
  like 'aaaaaaaaaaaaaA0', $pw_re;
unlike 'aaaaaaaaaaaaaaA', $pw_re;
unlike 'aaaaaaaaaaaaaa0', $pw_re;
unlike 'AAAAAAAAAAAAAA0', $pw_re;
unlike 'aaaaaaaaaaaaa-A', $pw_re;
unlike 'aaaaaaaaaaaaa-0', $pw_re;
  like 'aaaaaaaaaaaaaaaA', $pw_re;
  like 'aaaaaaaaaaaaaa0A', $pw_re;
  like 'aaaaaaaaaaaaa-0A', $pw_re;
  like 'aaaaaaaaaaaaaaaaaaA', $pw_re;
unlike 'aaaaaaaaaaaaaaaaaaa', $pw_re;
unlike 'AAAAAAAAAAAAAAAAAAA', $pw_re;
unlike 'aaaaaaaaaaaaaaaaaa0', $pw_re;
unlike 'aaaaaaaaaaaaaaaaaa-', $pw_re;
  like 'aaaaaaaaaaaaaaaaaaaa', $pw_re;
  like 'aaaaaaaaaaaaaaaaaA0-', $pw_re;
  like 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa', $pw_re;
done_testing;