my $fullname = qr/\A[a-z]{1,30}\z/i; my $username = qr/\A[a-z]\w{2,16}\z/i; my $password = qr/\A.{6,30}\z/;