RosettaCodeData/Task/Tokenize-a-string-with-escaping/Perl/tokenize-a-string-with-escaping-2.pl

    my @fields = $string =~ /\G (?:^ | $sep) \K (?: [^$sep$esc] | $esc .)*/gsx;