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

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