Wnat to parse below mentioned xml file

Hello,

I want to parse this file using perl and wan to take name and recset in variable using loop

kenyakbc
live
fine
date
fine
date
fine
date


kenyan24
sr
fine
date
fine
date
fine
date




kenyan24
sr
fine
date
fine
date
fine
date






asianet
sr
fine
date
fine
date
fine
date