x <- c("+331234567","+3301234567","00331234567","003301234567","0331234567","033-123-456-7","0033.1234567")
gsub("^(?:00?|\\+)330?|\\W", "", x, perl=TRUE)