in reply to Re: Mixing builtin char-classes and negation
in thread Mixing builtin char-classes and negation

He didn't say anything about parentheses.

$a = "(woozle)"; 
$a =~ s/[^(A\s)]/-/g;
print "$a\n";

[download]
gives 
(------)

[download]

-sauoq
"My two cents aren't worth a dime.";

Replies are listed 'Best First'.
Re: Re: Re: Mixing builtin char-classes and negation
by traveler (Parson) on Jun 16, 2003 at 21:22 UTC 
     print "I will not copy stuff from other programs without fully testin
+g it" 
while 1;

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom