$ perl -wle 'print join ",", split /\|/, "abc|def"' abc,def $ [download]
Dave.
In reply to Re: Surprised by split by dave_the_m in thread Surprised by split by GrandFather