Question about file formating

[user2base]

I have a file that looks like this:
blabla
!
!
!
bla bla
!
bla
blablabla
!
!

etc...

How to remove all the ! in a series but one so that the result looks like:

blabla
!
bla bla
!
bla
blablabla
!

 

[Zas]

whats you data output when you make the file?

 

[justice41]

You can set a 'seen' flag if a line contains a '!' and then skip any other lines after that which contain a '!'.
A simple example:

my $seen = 0;

while (<DATA>) {

    next if $seen and /^!$/;
    $seen = /^!$/ ? 1 : 0;
    print;
}

jaa