use Regexp::List qw( );

my $filter_re = Regexp::List
                ->new(modifiers => 'i')
                ->list2re(@filters);

for my $phrase (@phrases) {
   $phrase =~ s/$filter_re//g;
}