CPAN, as always, to the rescue:

http://search.cpan.org/~abigail/Regexp-Common-2011041701/lib...

It's repetitive - when you're checking e.g. for (ph|f)u(c|k|ck|q), there's no need to check cyb[e3]r(ph|f)u(c|k|ck|q) as well...

> fixed some broken patterns, added check for dick

My stepfather would be most displeased if he couldn't use his name.

5hit, that's a fuhked up list.