Why a regex, in this case, instead of splitting on "|" or (better yet) using Text::CSV to get the fields' values?