Password Check

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

while (<>) {
    chomp;
    &passwordCheck;
}

sub passwordCheck {
    if (m%
        ^(?=.*\d)(?=.*[a-z])(?=.*[A-Z])(?=.*\W).{8,11}$  |
        ^(?=.*\d)(?=.*[a-z])(?=.*[A-Z])(?=.*\W).{12,15}$ |
        ^(?=.*[a-z])(?=.*[A-Z]).{16,19}$                 |
        ^.{20,}$
    %x) {
        print "The password \"" . $_ . "\" is valid.\n";
    } else {
        print "The password \"" . $_ . "\" is invalid.\n";
    }
}