$delimiter = "|";
$line = "|45.55.186.846|asdf|24_12:20:19|ab|2004|18467|409|19|us|22348|i|cnor|f|55p|2";
$line =~ s/$delimiter/\,/g;
print "$line\n";