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

##</code><code>##

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

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

##</code><code>##

$ perl -Mstrict -MText::CSV=csv -wE 'my $num = 100; csv(in => [["1234565", "Prototype", "Number in address is $num. Please, Please check your 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

##</code><code>##

$ perl -Mstrict -MText::CSV=csv -wE 'my $num = 100; csv(in => [["1234565", "Prototype", "Number in address is $num. Please, Please check your 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