$str =~ s/[^\w.]|\d//g;