Как при помощи языка программирования «Perl» найти слова в тексте и убрать их из документа?

```perl
use strict;
use warnings;

my $text = "Это текст, который содержит некоторые слова, которые мы хотим удалить.";

my @words_to_remove = ('некоторые', 'мы');

my $new_text = join ' ', grep { !grep { $_ eq $word } @words_to_remove } split ' ', $text;

print $new_text;
```

Этот скрипт выполняет следующие действия:

1. Загружает текст в переменную `$text`.
2. Создает массив `@words_to_remove` со словами, которые нужно удалить.
3. Разделяет исходный текст на слова с помощью `split`.
4. Фильтрует список слов с помощью `grep`, удаляя слова из `@words_to_remove` с помощью вложенного `grep`.
5. Соединяет отфильтрованный список слов в новый текст с помощью `join`.
6. Выводит результат в консоль с помощью `print`.