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: hd-gene...@qvii.com
To report email issues: postmas...@qvii.com
)" <s...@qvii.com>

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