Select Code to Download

123456
Prototype
"Number in address is 100. Please, check your records."

$ perl -Mstrict -MText::CSV=csv -wE 'my $num = 100; csv(in => [["12345
+65", "Prototype", "Number in address is $num. Please, Please check yo
+ur records.", "foo bar", "baz,qux"]], out => *STDOUT)'

1234565,Prototype,"Number in address is 100. Please, Please check your
+ records.","foo bar","baz,qux"

$ perl -Mstrict -MText::CSV=csv -wE 'my $num = 100; csv(in => [["12345
+65", "Prototype", "Number in address is $num. Please, Please check yo
+ur records.", "foo bar", "baz,qux"]], out => *STDOUT, sep_char => "|"
+)'

1234565|Prototype|"Number in address is 100. Please, Please check your
+ records."|"foo bar"|baz,qux

$ perl -Mstrict -MText::CSV=csv -wE 'my $num = 100; csv(in => [["12345
+65", "Prototype", "Number in address is $num. Please, Please check yo
+ur records.", "foo bar", "baz,qux"]], out => *STDOUT, sep_char => "|"
+, quote_space => 0)'

1234565|Prototype|Number in address is 100. Please, Please check your 
+records.|foo bar|baz,qux