Imports System
Imports System.Text.RegularExpressions
Public Class Test
	Public Shared Sub Main()
		    Dim R As Regex = New Regex(" \(                   " & _
                           "   (?>                " & _
                           "       [^()]+         " & _
                           "     |                " & _
                           "       \( (?<DEPTH>)  " & _
                           "     |                " & _
                           "       \) (?<-DEPTH>) " & _
                           "   )*                 " & _
                           "   (?(DEPTH)(?!))     " & _
                           " \)                   ", _
       RegexOptions.IgnorePatternWhitespace)
    	Dim str As String = R.Replace("1.0 (Mac OS X Mail 9.0 \(3083\))", "")
    	Console.WriteLine(str)
	End Sub
End Class