Shell Programming and Scripting

Hi,
Having a following file's content, lets say:

ABC|ANA|LDJ|||||DKD||||||
AJJ|KKDD||KKDK||||||||||||
KKD||KD|||LLLD||||LLD|||||

Problem:

Need to replace pipes from 8th occurrence of pipe till end.

so the result should be:
ABC|ANA|LDJ|||||DKD
AJJ|KKDD||KKDK||||
-------
-------

Can someone give me one line sed or may one line perl script?

Thanks in advance !

if you have Python

Code:

# more file
ABC|ANA|LDJ|||||DKD||||||
AJJ|KKDD||KKDK||||||||||||
KKD||KD|||LLLD||||LLD|||||

# python -c "for line in open('file').read().split('\n'):print '|'.join(line.split('|')[:9])"
ABC|ANA|LDJ|||||DKD|
AJJ|KKDD||KKDK|||||
KKD||KD|||LLLD|||

Sorry, I don't have python installed !

Thanks !
I used cut to achieve this which is quite slow. Is it possible to achieve this using sed or any other utility?

Thanks !
I was wondering, couldn't we just replace all the pipes(|) from 8th occurrence till end of the line with a new line. I can use this command with Perl as well...I mean I have a Unix shell script in which cut is used but it is quite slow therefore want to simulate the same in Perl. I don't either want to use split and join in Perl. It looks to be quite a bit of extra work.Therefore looking for a utility, may be one liner to get this done....

Any thought!!!