That has solved it. Thank you!

Stephen Cena
Senior Systems Administrator 
Quality Vision International, Inc.
Phone: (585) 544-0450 x300
To notify helpdesk: http://helpdesk.ogp.qvii.com or email: [email protected]
To report email issues: [email protected]
)" <[email protected]>

If you want to use the /x modifier, provide a regular expression object, not a 
string:

Set($RTAddressRegexp,
    qr/
      (local-part1@domain1\.tld)|
      (local-part2@domain2\.tld)|
      (local-part3@domain3\.tld)|
      : 
      :
      (local-partN@domainN\.tld)
    /xi );

Tangentially, the inner grouping ()s are not necessary here, but you will want 
to anchor the regular expression to the start and end of what it's matching. 
And you'll need to escape the "@" signs:

Set($RTAddressRegexp,
    qr/
       ^
         (
           local-part1\@domain1\.tld
         | local-part2\@domain2\.tld
         | local-part3\@domain3\.tld
         |  : 
         |  :
         | local-partN\@domainN\.tld
         )
       $
    /xi );


 - Alex

Reply via email to