converting to strings

I have a list:

x<-c("abcg", "bcah", "defi")

I want the third and fourth thing in each item of the list ("bc", "ca", 
"ef").

Peter