gistfile1.txt

use v6;

# string to parse
my Str $str = ',"I said, ""Hi!""",';

# three alternatives for eol, separator, and quote
# as escape is identical to quote, I do not need to repeat
my @re = "\r\n", "\r", "\n", ",", "\"";

my @chunks = $str.split(@re, :keep-indices, :skip-empty);

dd $str;
dd @re;
dd @chunks;


with skip-empty

Str $var = ",\"I said, \"\"Hi!\"\"\","
Array $var = $["\r\n", "\r", "\n", ",", "\""]
Array $var = $["I said", 3, " ", 4, "Hi!", 4]

without skip-empty

Str $var = ",\"I said, \"\"Hi!\"\"\","
Array $var = $["\r\n", "\r", "\n", ",", "\""]
Array $var = $["", 3, "", 4, "I said", 3, " ", 4, "", 4, "Hi!", 4, "", 4, "", 4, "", 3, ""]