$a = "12||23||34||45";

@a = split(/\|\|/, $a);
print join(",", @a);