$str =~ s/\P{isLetter}+/ /g;