($frame_name) = $line =~ /^FRAME\s+NAME:\s+.*?[\(|\[]([A-Z]+_[A-Z]+(?:[_ A-Z 0-9]+)?)[\)|\]|\,]/;