(no subject)

[pargentum]

if ( $filterText =~ m/(wank)|(piggery)|(furtling)|(twat)|(tubesteak)|(peepee)|(pee-pee)|(blow-job)|([\w-]*fuck[\w-]*)|((m[ou]th(a|er))?(ph|f)u(ck?|k|qu?)(e?(t|d|rs?|ing))?(-\w*)?)|(\w*sh(1|\!|i|y)t\w*)|(coc?k([ -]?suck(e?[dr]?|ing))?)|(cunt\w*)|(hung like)|(ass(hole|wipe|face)[sd]*)|(nutsac?k)|(tit+(ie|y)?s?[^le])|(pecker(woods?|s))|(nu[ -]?shield)|(ji[sz]{1,2}(([uei]m)?ing)?)|(felch(ed|ing)?)|(cockpit confessions of an airline pilot)|(beat me offs?)|(big dicks?)|(black dicks?)|(black pussys?)|(blow jobs?)|(blowjobs?><cum shots?)|(cumshots?)|(dick heads?)|(dickheads?)|(dick sucks?)|(dick suckers?)|(dick suckings?)|(dicksucks?)|(dicksuckeds?)|(dicksuckers?)|(dicksuckings?)|(hairy dicks?)|(hairy pussys?)|(hairy snatchs?)|(hard dicks?)|(his dicks?)|(hot pussys?)|(hot snatchs?)|(huge dicks?)|(jack me offs?)|(jackoffs?)|(jerk me offs?)|(jerkoffs?)|(long dicks?)|(my dicks?)|(shaved pussys?)|(small dicks?)|(suck dicks?)|(suckdicks?)|(sucked dicks?)|(suckeddicks?)|(sucking dicks?)|(suckingdicks?)|(sucks dicks?)|(sucksdicks?)|(teen dicks?)|(teen pussys?)|(tight pussys?)|(virgin pussys?)|(wet pussys?)|(wet snatchs?)|(young pussys?)|(your dicks?)|(k?k?kanadi?ans?)/gi ) {

Источник: http://shaulreznik.livejournal.com/699962.html?thread=4541498#t4541498

Comments

[nine_k]

о да.
на max-club.ru, когда я к нему ещё имел отношение, был сходный фильтр.
однако он читался не так увлекательно, из-за учёта флексий. дополнительным бонусом там шёл автоперевод латиницы в кириллицу и букво-похожих символов в буквы (типа 6-б).