A much more compact solution, given that s?he specified the characters s?he wanted, would be:

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

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'