perl -le 'map { print defined($_) ? "def" : "undef" } split(/\|/, "2|3|||||");
def
def