Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim str As String = Regex.Replace("a dog", "\W*$", "", RegexOptions.RightToLeft)
Console.WriteLine(String.Join("; ", Regex.Split(str, "\s+")))
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKIApQdWJsaWMgQ2xhc3MgVGVzdAoJUHVibGljIFNoYXJlZCBTdWIgTWFpbigpCgkJRGltIHN0ciBBcyBTdHJpbmcgPSBSZWdleC5SZXBsYWNlKCJhIGRvZyIsICJcVyokIiwgIiIsIFJlZ2V4T3B0aW9ucy5SaWdodFRvTGVmdCkKICAgIAlDb25zb2xlLldyaXRlTGluZShTdHJpbmcuSm9pbigiOyAiLCBSZWdleC5TcGxpdChzdHIsICJccysiKSkpCglFbmQgU3ViCkVuZCBDbGFzcw==