perl -ne '@a=split('\|',$_,3);pop;print join('|',@a)."\n";' <file