my ($first, $second, $third, $fourth, $fifth, undef) = split /\|/, $string,6;