in reply to extracting data

Just wanted to point out a slight typo-ish thing. You left out this condition:

|| $split_data[2] eq '1'

edit: oops, this was supposed to be in response to moritz's helpful comment.

In Section Seekers of Perl Wisdom