$str =~ s/[^\p{Latin}\s]//g;