anticipo che ho letto manuali e fatto innumerevoli prove

Avendo un indirizzo email di questo tipo:

user@subdomain-stringa.dominio.com

come posso ottenere una stringa formattata come:

user@dominio.com

ovvero devo eliminare subdomain-stringa (che è sempre fisso).


da shell con sed riesco a farlo comodamente, ma con perl ho l'impressione che il "-" contenuto nella stringa dia problemi, in quanto mi restituisce un 43264782364832 ))

Come faccio a dirgli che "subdomain-stringa" è una stringa vera e propria?