package word_filter;


@Word=qw{fuck shit хуй хуе хуё гавно ебал мудак пидор пизда};


sub filter {
 my $str=shift;
 for(@Word) {
   if($str=~ /$_/is) { return($_); }
 }
 0;
}

1;