On Thu, Aug 10, 2000 at 07:04:50AM -0400, Ilya Zakharevich wrote:
>  $quoted = qr/(['"]).*?\2/;
>  @a = $str =~ /($quoted)/gp;
> 
> Here //p is the "postponed" flag.  Put (?p{$quoted}) instead of
> $quoted to get this semantic now (or some other char).

 $quoted = qr/(['"]).*?\1/;
 @a = $str =~ /(??{$quoted})/g;

does the trick, thanks!

-- Johan

Reply via email to