$string = "a|b|||";
print "'" . join ("', '", split(/\|/, $string)) . "'\n";
print "'" . join ("', '", split(/\|/, $string, -1)) . "'\n";