ack Multi Path search some stuff for win32 cmd script

gistfile1.txt

@echo off & setlocal
setlocal EnableDelayedExpansion

set t=%path%
:loop
for /f "tokens=1* delims=;" %%a in ("%t%") do (
    set tt=%%a
    set ttt=!tt:~-1!
    set tttt=!tt:~0,-1!
    IF  "%ttt%"=="\" (
      rem IF EXIST "%tttt%" echo "OK"
       cmd /c ack -f --perl "%tttt%"
      ) else (
       IF "%tt%" NEQ "" echo %tt%
    )
    set t=%%b
   )
if defined t goto :loop