#!/usr/bin/perl -s
use strict;
use utf8::all;
use Text::CSV qw( csv );
our ($s);
$s //= ',' ;

my $in = shift || *STDIN; ## or die();

my $aa = csv (in => $in, encoding => "UTF-8",sep_char => $s );

for $a (@$aa){
   print( join(" :: ", map {s/\n/||/g; $_} @$a),"\n" );
}