> > $var =~ s<{([^}]+)}><(?:@{[ ($a = $1) =~ y/,/|/ && $a ]})>;
>
>
> Does it not need the 'ge' at the end?
>
> I don't understand why you are creating an anonymous array
> with a single
> value, then dereferencing it... And what does the "?:" do?
I think the ?: must be extraneous:
C:\src\perl>perl -pe"s<{([^}]+)}><(?:@{[ ($a = $1) =~ y/,/|/ && $a ]})>"
blargh{a,b,c}blargh
blargh(?:a|b|c)blargh
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
