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