[R-br] string

Caros, como eu poderia escrever um loop para retirar todos os caracateres que estão antes e depois da "/" na string abaixo e colocando-os em novas variáveis? Ex. data <-c("155 - VITAL DO REGO FILHO - PB - Senador", "1111 - - PP - - Deputado Federal / 25888 - ATAIDES MENDES PEDROSA - PB - Deputado Estadual", "1111 - - PP - - Deputado Federal / 22333 - EDNALDO PEREIRA DE SANTANA - PB - Deputado Estadual", "151 - JOSE WILSON SANTIAGO - PB - Senador", "45123 - ANTONIO HERVAZIO BEZERRA CAVALCANTI - PB - Deputado Estadual", "1212 - DAMIÃO FELICIANO DA SILVA - PB -Deputado Federal")