$ 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