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