use warnings;
use strict;

local $/ = "\n)\n";

while (<DATA>)
{
    my $got_end = chomp;
    s/\s*QUALIFIED$// unless m/^.*?clk\[\d+\]/;
    print;
    print $/ if $got_end; 
}