Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
(------)
```