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;