Perl регулярное выражение для "Reply-To: ", затем символы, затем только "@domain1.fr" или "@domain2.fr"

Question

Я хочу написать регулярное выражение Perl, которое дает совпадение, если строка

1. начинается с "Reply-To: "
2. продолжается с любым количеством символов
3. продолжается только "@domain1.fr" или "@domain2.fr"
4. заканчивается любым количеством символов

Примеры:

• Ответить: abc def@domain1 должен совпадать
• Ответить: abc def@domain2 должен совпадать
• Ответить: abc def@domain3 не должен совпадать

Я старался

/^Reply-To: *(?!@domain1.fr|@domain2.fr)/ 

но

• Ответить: abc def@domain1 не соответствует
• Ответить: abc def@domain2 не соответствует

Проблема состоит в том, чтобы исключить из сопоставления домены, которые отличаются от домена1 И домена2. Потому что, если я хочу исключить из совпадения домены, отличные только от domain1, я набираю

/^Reply-To: *(?!domain1.fr)/ 

и это работает отлично.

Answer 1

Если я вас правильно понимаю, то регулярное выражение, которое вы ищете:

/^Reply-To: *.*(@domain1.fr|@domain2.fr)/