https://stackoverflow.com/q/968441 in Perl 6

csv.p6

#! /usr/bin/env perl6
use v6.c;

grammar CSV {
  token TOP {
    <line>* %% "\n"
  }
  token line {
    ^^
    <element>* %% ｢,｣
    $$
  }
  token element {
    [
    || <string>
    || <-[,\n]>
    ]*
  }
  token string {
    ｢"｣ ~ ｢"｣
    [
    ||  ｢\"｣+
    ||  <-["]>
    ]*
  }
}

class Export {
  method TOP ($/) {
    make @<line>».made.List
  }
  method line ($/) {
    make @<element>».made.List
  }
  method element ($/) {
    make( $<string> ?? $<string>[0].made !! $/.trim )
  }
  method string ($/) {
    make $/.substr(1,*-1).subst:
      :global,
      ｢\"｣, #"
      '"'
  }
}

my \result = CSV.parse: slurp, :actions(Export);

for result<line> -> $line {
  put $line, ':';
  for $line.made -> $element {
    say "    [$element]"
  }
}