I would suggest using regexes only to pull individual segments out of the transaction string.

$PV1segment = ($transaction =~ /PV1.+?~/;
[download]

assuming ~ is the segment terminator. Then, use split to break the segments into arrays. It is much easier than dealing with regexes, and takes advantage of the delimited structure of the data.