$str =~ tr/a-zA-Z.//dc;