$word =~ s/$_// for @list;