while ( /([A-Z][0-9]*)=(\S+)/g ) {

  # Wenn erstes Zeichen eine '(' ist,
  if ( substr($_,0,1) eq '(' ) {
    # springe zur naechsten Zeile
    next;
  }

  # hier folgt dann der andere Code
}