sub process_para {
   my ($para) = @_;
   if (my ($id) = $para =~ /^ [ ]* (\S+)/x) {
      if ($id !~ /^.*clk\[\d\]\z/) {
         $para =~ s/^ [ ]* QUALIFIED [ ]* \n//xmg;
      }
   }
   print($para);
}