Dears Monks,

I want to process word through perl.

How i can convert this vba macro to perl code

(Microsoft VBScript Regular Expressions 5.5)

Dim varRegex As New RegExp 
Dim varMatch As Match
Dim varMatchs As MatchCollection
      
varRegex.Global = True
varRegex.MultiLine = False
varRegex.IgnoreCase = True

varRegex.Pattern = "^[^\d+]+"
 
st = Selection.Start 
                
If varRegex.test(docrange.Text) = True Then
    Set varMatchs = varRegex.Execute(docrange.Text)
    For Each varMatch In varMatchs
        ActiveDocument.Range(st, st + Len(varMatch.Value)).Select
        Selection.Style = "authors"        
    Next
End If

Thanks.
[download]