foreach ('test_NO PASSWORD', 'test_PASSWORD', 'test_test', 'test', 'test_abc???????def') {
    print "$_: ", getPasswordStatus(split /_/), "\n";
}

##</code><code>##

test_NO PASSWORD:     empty
test_PASSWORD:        password
test_test:            login
test:                 ok
test_abc???????def:   ok
test_A gOoD PASsword: weak