my $quoted = qr/
(?:(?|
    (?:\")(?:[^\\\"]*(?:\\.[^\\\"]*)*)(?:\"|$)
    |
    (?:\')(?:[^\\\']*(?:\\.[^\\\']*)*)(?:\'|$)
))
/x;

my $re = qr/
    (?:
        (?:\\.)+
        |
        $quoted
        |
        [^ \\"']+
    )* \K
    (?:
        \ | $
    )+
/x;

# and later:
    my $got = [ split $re, $str ];