for $filter (@filters) { 
     s/\Q\b$filter\b\E//ig for @main; 
}