extract emails with RegEx.ahk

;*******************************************************
; Want a clear path for learning AutoHotkey; Take a look at our AutoHotkey Udemy courses.  They're structured in a way to make learning AHK EASY
; Right now you can  get a coupon code here: https://the-Automator.com/Learn
;*******************************************************
Haystack =
(
hello tom12@run.com more text
worked and joe.glines@gmail.com
did too and Joeshmoe@ai.com
this also works joes@school.edu
432 432 Joe@marketin.cn 43432
)
;Send ^c ;uncomment to use in any program
;Haystack:=Clipboard ;uncomment to use in any program

Pos:=1 ;set starting position
loop, {
	Pos_Found:=RegExMatch(Haystack,"i)(?:[\w_\.-]+)@(?:[\w\.-]+)\.(?:[a-z\.]{2,6})",mail,Pos)
	Pos:=Pos_Found+StrLen(mail)+1 ;move location to new position + mail lenght+ 1
	IfEqual,mail,,break ;Break loop if no mail found
	mails.=mail "`n"
}
MsgBox % mails