Rather than re-invent the wheel, we use Crypt::Cracklib to keep our users in check.

Check it out, it might save you some effort.