@array = split /\|/, $text, -1;