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