Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
-A---- A---
```