I don't want to see more data. I want to see your code. Here's a start:

use warnings;
use strict;

...

while (<DATA>) {
    ...
}

...

__DATA__
285 blabla_data[28] OUTPUT (
286 REQUIRED (
287 lead_up 0.193118 br fclk clkdom(3)
288 early_lea clkdom(3)
289 late_trail_dn -0.084738 br fclk clkdom(3)
290 late_tra
291 )
292 cext %0.00151055
299 min_ceff_up %0.034
300 TEXT TO BE REMOVED
301 )
302 blabla5 [145] OUTPUT (
303 REQUIRED (
304 early qclk clkdom(6)
305 early_l qclk clkdom(7)
306 late_trail_dn -0.125163 bf qclk clkdom(7)
307 late_t(7)
308 TEXT TO BE REMOVED
309 )
[download]

just fill in the dotted parts.

If your paragraphs go from "blabla" to "blabla", a trick would be to set your input record separator to return records that end with "blabla", instead of the usual newline "\n". Perhaps something like:


use warnings;
use strict;

...

local $/ = "blabla";

while (<DATA>) {
    s/TEXT TO BE REMOVED// unless m/^5/;
    print;
    ...
}
[download]

Ok, I think I need to be more specific. I attached the exact data right now. I need to match the paragraphs that their headlines contain (string)clk(digit in brackets) and leave the "QUALIFIED" there. In all other paragraphs I should delete it. So in that example I have 3 paragraphs. The first one matches what I want so I should leave the "QUALIFIED" but the third one does not meet my needs so I should delete it.

qclk[6] INPUT (
     ! "asdk fd  sasd"
     VALID ( 
       late_lead 3 ar qclk slope 20
       late_lead 3 af qclk slope 04
       early_dn 8 ar qclk slope 6
       early_up 6 af qclk slope 6
     )
     cext %0.00394757
     cmax %0.005504
     QUALIFIED
)
clkout_qclk_61[3] OUTPUT (
)
clkout_qclk_61[2] OUTPUT (
     REQUIRED ( 
       earlyp  0.5 br qclk clm(2)
       latel_up  5 bf qclk clk(2)
     )
     REQUIRED ( 
       early_lead_dn  0.004 bf qclk clkdom(2)
       late_trail_dn  0.005 br qclk clkdom(2)
     )
     cext %0.0647336
     max_ceff_up %0.187
     QUALIFIED
)
[download]

Well my code does not mean much at the moment because I don't know how to handle the file yet. All I know now is how to remove "QUALI..." from the entire text. I need to think on a way to match my certain string (blabla5) and then take my paragraph ( bounded by ((...)), the string to be removed is just after that), and then leave the "QUALI..." just there and other places alike. Maybe if I could start a new search starting a line number, or save the data after my match in some kind of database... Thanks.

#!/usr/bin/perl -w

print ("Please enter the location:\n");
chomp ($stuff=<STDIN>);


open STUFF, $stuff or die "Cannot open $stuff for read :$!";

while (<STUFF>) {
       
               s/QUALI_C//g ;
               print "$_/n";
}  ;
[download]