Perl regexp help

Shell Programming and Scripting
1

Hi,

I have file like below:

1|1212|34353|5fdf 6575||dfgdg sfsdf |afsf||4|aasfbc|~1213~~~~~
1|1212|34353|5fdf 6575||dfgdg sfsdf |affsf| |4|abc|~rwarw~~asa~~~123~312313
1|1212|34353|5fdf 6575||dfgdg sfsdf |afasfs||4|aasfdbc|~564564~~~~
1|1212|34353|5fdf 6575||dfgdg sfsdf ||sfsdf|4|abdfdc|~1~~~
1|1212|34353|5fdf 6575||dfgdg sfsdf ||adfadf|4|dfdabc|~rwarw~~~

I am trying to print only upto last pipe like below:

1|1212|34353|5fdf 6575||dfgdg sfsdf |afsf||4|aasfbc|
1|1212|34353|5fdf 6575||dfgdg sfsdf |affsf| fsd|4|abc|
.
.
.

I am using the code below:

#!/usr/local/bin/perl
while ( <DATA>) { 

        s/^(.*.\|)/$1\n/;
        print; 
} 

__DATA__ 
1|1212|34353|5fdf 6575||dfgdg sfsdf |afsf||4|aasfbc|~1213~~~~~
1|1212|34353|5fdf 6575||dfgdg sfsdf |affsf| |4|abc|~rwarw~~asa~~~123~312313
1|1212|34353|5fdf 6575||dfgdg sfsdf |afasfs||4|aasfdbc|~564564~~~~
1|1212|34353|5fdf 6575||dfgdg sfsdf ||sfsdf|4|abdfdc|~1~~~
1|1212|34353|5fdf 6575||dfgdg sfsdf ||adfadf|4|dfdabc|~rwarw~~~

But I am not gettind the required output.

Thanks for your help in advance.

2

try:

#!/usr/local/bin/perl
while ( <DATA>) {
        s/^(.*\|).*/$1/;
        print;
}

__DATA__
1|1212|34353|5fdf 6575||dfgdg sfsdf |afsf||4|aasfbc|~1213~~~~~
1|1212|34353|5fdf 6575||dfgdg sfsdf |affsf| |4|abc|~rwarw~~asa~~~123~312313
1|1212|34353|5fdf 6575||dfgdg sfsdf |afasfs||4|aasfdbc|~564564~~~~
1|1212|34353|5fdf 6575||dfgdg sfsdf ||sfsdf|4|abdfdc|~1~~~
1|1212|34353|5fdf 6575||dfgdg sfsdf ||adfadf|4|dfdabc|~rwarw~~~