You split already extracts those, it's just a matter of chosing the right elements from the returned lists.

You do know how to get elements from a list, don't you?

See perlintro and perldata.