Loop, Files, %A_ScriptDir%\*.*
{
	If InStr(A_LoopFileAttrib, "D")  ; Если папка то пропустить, тут это не требуется, нет рекурсии и папок в опции перебора
		Continue
	FileName := RegExReplace(A_LoopFileName, "(.*)\..*", "$1")  ; имя без расширения
	If RegExMatch(FileName, "[A-ZА-ЯЁ]{3,}")  ; три и более идущих подряд заглавных 
		FileMove, %A_LoopFileFullPath%, %A_ScriptDir%\1, 1 
}