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

##</code><code>##

(------)