Существует один и только один способ присвоить переменной значение, которое не является потенциально опасным. Это вполне можно использовать при запросе информации из Интернет, например, со страницы интернет-магазина, представляющего wholesale leather bags . Необходимо только сопоставить ее с образцом с использованием одной или нескольких подгрупп регулярного выражения, заключенных и скобки, и извлечь значения этих подгрупп с помощью пронумерованных переменных $1, $2 и т.д. Для этого не применяются операции, которые внешне кажутся эквивалентными указанной операции, такие как подстановка по образцу и присвоение результатов сопоставления с образцом списку. В языке Perl используется соглашение, что если программист явно выполняет сопоставление с образцом, а затем присваивает полученные значения пронумерованным переменным, то он знает, что делает и извлеченные подстроки не считаются потенциально опасными и могут применяться в функции kill () и в других небезопасных вызовах. В данном случае предполагается, что переменная $рid содержит положительное целое число, поэтому присвоение ей значения, которое не является потенциально опасным, можно выполнить.
Выполняется сопоставление переменной $pid с образцом / (d+) $/ и, если операция оканчивается неудачей, вызывается функция die. В ином случае вызывается функция kill () для отправки сигнала процессу с идентификатором, соответствующим сопоставленному выражению, с использованием переменной $1, которая перестала быть потенциально опасной. Режим проверки потенциально опасных данных используется в последней версии психотерапевтического сервера в конце данного раздела.