in reply to friday morning regex
My offer.
#! perl -sw use strict; while (<DATA>) { my @domains = /([^,]+),\s*([^,]+),\s*([^,]+)\s*(?:,|and|&)\s*(.*?) +$/; print $_, $/ for @domains; print $/; } =pod comment only c:\test>test foo.com bar.net blah.org trivial.com foo.com bar.net blah.org trivial.com foo.com bar.net blah.org trivial.com c:\test> =cut __END__ foo.com, bar.net, blah.org, trivial.com foo.com, bar.net, blah.org & trivial.com foo.com, bar.net, blah.org and trivial.com
|
|---|