for my $phrase (@phrases) {
   for my $filter (@filters) {
      my $pos = 0;
      for (;;) {
         $pos = index($phrase, $filter, $pos);
         last if $pos < 0;
         substr($phrase, $pos, length($filter), '');
      }
   }
}