s/ ^ \b ( [ \w \s \[ \] ]+ \s+ \( ) $ 
        ( .*? ^\)$ ) 
 / my ($head, $body)=($1, $2);
   $body =~ s|QUALIFIED|| 
     unless $head ~~ m|^\w+?clk\[\d\]|;
   $head . $body
 /gemsx;