x <- c("/en/house/125,/en/house/145,/en/house/06", "/en/house/45,/fr/house/22,/fr/house/34", "/es/do/45,/ro/nu/22,/ja/hs/34")
gsub("(^|,)/[a-z]{2}/", "\\1", x)