in reply to Re^2: Zero-width assertions fail with split
in thread Zero-width assertions fail with split

You want "not both preceded and followed by TOKEN", which is equivalent to "either not preceded by TOKEN, or not followed by TOKEN", and that we can do:

  my $split  = qr/
    (?<!$token) ,
  |
    , (?!$token)
  /x;

[download]

Hugo

In Section Seekers of Perl Wisdom