Hmmm. Well, your original code seemed to assume that those two separate lines were somehow stored in a single scalar sting, as in: "$data = get($line)" -- because after $data gets its value from this sub call, you split it with /\r?\n/. (you originally used /\r\n|\n/, which does the same thing.)

So that's why I suggested ditching the split, and just looking for the combination of your two regexes separated by the line separator that was apparently embedded in $data.