in reply to extracting data from string

You don't give the input and the expected output.
Do that.

In Section Seekers of Perl Wisdom