Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.Text = "<p>First paragraph.</p> <div>Content</div>"
      
      '// Pattern to find any simple HTML-like tag
      t.Pattern("<{tag}>{content}</{tag}>")
      t.Find()
      
      Dim matches = t.Matches
      Console.WriteLine($"Found {matches.Count()} tags:")
      For Each match In t.Matches
         Console.WriteLine($"- {match.Text}")
      Next
   End Sub
End Module