#!/usr/bin/perl

# https://perlmonks.org/?node_id=1226189

use strict;
use warnings;

print glob qq("$_") =~ s/[^|\n]+/{$&}/gr while <DATA>;

__DATA__
some text foo | some text BAR | oh , no , commas | some text BAZ | some text QUX
some text Oof | some, text, BAR | some , text , BAZ | some text QUX
some,text,FOO | some text BAR |  one two | some , text , QUX