Беспокоиться.

Чтобы быть уверенными до конца, вставим в наш код проверку: if($address=-/(w[w-. ]-)@([w-.

]+)/) <

$cleanaddress = $1. '@' .$2; }

else {

warn "Wrong address: $address": ^выдавая сообщение об ошибке на stderr $cleanaddress ="": }

Тем самым, правда, отсекаются вполне законные имена типа mama&papa@home.org. Менее строгая проверка

вида address=7(S+)@([w.-]+)/ пропустит и метасимволы, сведя на нет все паши усилия но обеззараживанию.

У вас может возникнуть желание обеззаразить переменную следующим образом: $a(j(jress=~ (.*);

$cleanaddress=$1;