my @new = split /\|/, $line . '|sentinel';
$#new--; # Remove sentinel