use v6;

  my regex fields { \" <( .*? )> \" | <-[,"]>* }

  my $input  = open  'input.csv', :r;
  my $output = open 'output.tff', :w;

  for $input.lines {
      next unless /<fields>* % ','/;
      $output.print: @<fields>.join(chr 31) ~ chr 30;
  }

  $output.close;

##</code><code>##

  my regex fields { \" <( .*? )> \" | <-[,"]>* }

  lines open 'input.csv'
    ==> map({@<fields>.join(chr 31) ~ chr 30 if /<fields>* % ','/})
    ==> spurt('output.tff');