Чтобы быть уверенными до конца, вставим в наш код проверку: 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;