Rather than iterating through every permutation of every comma-separated sub-phrase, wouldn't it be better to print each set of sub-phrases once per line? Also, comma-separated sub-phrases at the beginning or end of the line will not be processed. How about something like: 

c:\@Work\Perl\monks>perl -wMstrict -le
"my @lines = (
   '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 QU
+X',
   'some, text, FOO | some text BAR |  one two | some , text , QUX',
   );
 ;;
 my $got_commas = qr{
   (?: (?<= [|]) | \A) [^|,]* (?: , [^|,]*)+ (?= [|] | \z)
   }xms;
 ;;
 for my $line (@lines) {
   while ($line =~ m{ ($got_commas) }xmsg) {
     my $before = substr $line, 0, $-[1];
     my $after  = substr $line, $+[1];
     print qq{:$before$_$after:} for split m{ , }xms, $1;
     }
   }
"
:some text foo | some text BAR | oh | some text BAZ | some text QUX:
:some text foo | some text BAR | no | some text BAZ | some text QUX:
:some text foo | some text BAR | commas | some text BAZ | some text QU
+X:
:some text Oof | some| some , text , BAZ | some text QUX:
:some text Oof | text| some , text , BAZ | some text QUX:
:some text Oof | BAR | some , text , BAZ | some text QUX:
:some text Oof | some, text, BAR | some | some text QUX:
:some text Oof | some, text, BAR | text | some text QUX:
:some text Oof | some, text, BAR | BAZ | some text QUX:
:some| some text BAR |  one two | some , text , QUX:
: text| some text BAR |  one two | some , text , QUX:
: FOO | some text BAR |  one two | some , text , QUX:
:some, text, FOO | some text BAR |  one two | some :
:some, text, FOO | some text BAR |  one two | text :
:some, text, FOO | some text BAR |  one two | QUX:

[download]
(Availability of  \K with Perl versions 5.10+ can make the  (?: (?<= [|]) | \A)) expression a little nicer.)

Update: An "impure" variation. No big improvement; maybe of some interest. 

c:\@Work\Perl\monks>perl -wMstrict -le
"my @lines = (
   '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 QU
+X',
   'some, text, FOO | some text BAR |  one two | some , text , QUX',
   );
 ;;
 my $got_commas = qr{
   (?: (?<= [|]) | \A) [^|,]* (?: , [^|,]*)+ (?= [|] | \z)
   }xms;
 ;;
 local our @out;
 use re 'eval';
 m{ \A (.*?) ($got_commas) (?= (.*))
    (?{ push @out, map qq{>$1$_$3<}, split m{ , }xms, $2 })
    (?!)
    }xmsg
    for @lines;
 ;;
 print for @out;
"
>some text foo | some text BAR | oh | some text BAZ | some text QUX<
>some text foo | some text BAR | no | some text BAZ | some text QUX<
>some text foo | some text BAR | commas | some text BAZ | some text QU
+X<
>some text Oof | some| some , text , BAZ | some text QUX<
>some text Oof | text| some , text , BAZ | some text QUX<
>some text Oof | BAR | some , text , BAZ | some text QUX<
>some text Oof | some, text, BAR | some | some text QUX<
>some text Oof | some, text, BAR | text | some text QUX<
>some text Oof | some, text, BAR | BAZ | some text QUX<
>some| some text BAR |  one two | some , text , QUX<
> text| some text BAR |  one two | some , text , QUX<
> FOO | some text BAR |  one two | some , text , QUX<
>some, text, FOO | some text BAR |  one two | some <
>some, text, FOO | some text BAR |  one two | text <
>some, text, FOO | some text BAR |  one two | QUX<

[download]

Give a man a fish:  <%-{-{-{-<

In reply to Re^2: splinting a line of text by comma (updated) by AnomalousMonk
in thread splinting a line of text by comma by benaw

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.