No package needed and dealing with the fact that you have a vector of such strings:
v=c("ABC_EFG_HIG_ADF_AKF","ADF_AKF_MNB_RRR") sapply(strsplit(v,"_"),"[",3) # [1] "HIG" "MNB"