Oh, I was just horsing around. Have you tried writing any code yet? Try looking through some of the POD for Perl functions like substr, index, split, pos, and the page for regexes perlre. Like so-

# update, adding one with an -f flag for clarity
perldoc -f pos
perldoc perlre
[download]

See if you can at least parse the string out a little in any way. If you're stuck. Show the code you tried. A little effort is usually rewarded generously here. A question without it tends to get less attention. And as learning experiences go, someone showing you something is drastically less effective than trying to do it, even when having trouble. You'll be much more receptive to answers after banging your head on a problem a little. We all are.