$ perl -lwe"q<d'aujourd'hui> =~ /^((\w+')(?{print$+}))+([\w-]+)$/" d' aujourd' $ [download]
In reply to Re: Re: Re: regex capturing problem by petral in thread regex capturing problem by pike