if ($password =~ /\W/) {
  # It's "unreasonable"
} else {
  # It's really easy to guess -- err, I mean "reasonable"
}