Скрипт рассылки

[Agronom]

Есть скрипт по формированию списка рассылки. Объясните как изменить эти строки чтобы адрес не обрезался "все до собаки"?

Код: Выделить всё

     ($local_part,$domain) = split (/\@/,$t->[$i][0]);
     print OUT $local_part."\n";

Если пишу так:

Код: Выделить всё

     ($local_part,$domain) = split (/\@/,$t->[$i][0]);
     print OUT "$local_part+$domain"."\n";

то адрес получается вида address+mail.domen

А как нужно написать чтобы вместо плюса собака была и не вырезалась? ....во загнул то

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Alex Keda]

из приведённого куска кода нихрена непонятно чё оно делает

[Agronom]

Сам разобрался....ларчик просто открывался:

Код: Выделить всё

($local_part,$domain) = $t->[$i][0];
     print OUT "$local_part@$domain"."\n";