@echo off
setlocal EnableDelayedExpansion
::set path
echo PATH OLD %PATH:;=&echo.%
set $line=%path%
set $line=%$line: =#%
set $line=%$line:;= %
set $line=%$line:)=^^)%
echo FOUND

for %%a in (%$line%) do @echo %%a | find /i "C:\perls" || set $newpath=!$newpath!;%%a
echo.
set $newpath=!$newpath:#= !
set $newpath=!$newpath:^^=!
set path=!$newpath:~1!
echo PATH NEW %PATH:;=&echo.%


##</code><code>##

endlocal & set path=%$newpath:~1%