in reply to TEXT TO CSV

while (<>) {
  chomp;
  s/"/""/g;
  print qq["$_",\n];
}

[download]
package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name

In Section Seekers of Perl Wisdom