Смена строчных букв на прописные

@echo off
SetLocal EnableExtensions
 
set data=ivan.petrov
 
for /f "delims=. tokens=1,2" %%a in ("%data%") do set name=%%a& set surname=%%b
call :ProperCase %name% name
call :ProperCase %surname% surname
echo Hello, %name% %surname%
pause
goto :eof
 
:ProperCase
  set "str=%~1"
  set "char=%str:~,1%"& set "str=%str:~1%"
  for /f "delims=" %%a in ('"find "" "%char%" 2>&1"') do set x=%%a& call set char=%%x:~-1%%
  set "%~2=%char%%str%"
exit /b

if not defined %~1 EXIT /b 
for %%a in ("A=a" "B=b" "C=c" "D=d" "E=e" "F=f" "G=g" "H=h" "I=i" "J=j" "K=k" "L=l" "M=m" "N=n" "O=o" "P=p" "Q=q" "R=r" "S=s" "T=t" "U=u" "V=v" "W=w" "X=x" "Y=y" "Z=z" "А=а" "Б=б" "В=в" "Г=г" "Д=д" "Е=е" "Ж=ж" "З=з" "И=и" "К=к" "Л=л" "М=м" "Н=н" "О=о" "П=п" "Р=р" "С=с" "Т=т" "У=у" "Ф=ф" "Х=х" "Ц=ц" "Ч=ч" "Ш=ш" "Щ=щ" "Ь=ь" "Ы=ы" "Ъ=ъ" "Э=э" "Ю=ю" "Я=я") do ( call set %~1=%%%~1:%%~a%% ) 
EXIT /b

@echo off
set "file=example.txt"
 
>nul chcp 1251
<"%file%">$ (
 for /f "delims=" %%i in ('find/n /v ""') do @(
  set x=%%i& call set "x=%%x:?=$#$%%"& call set "x=%%x:"=$@$%%"
  for /f "tokens=3*" %%j in ('2^>^&1 cmd/v/c find "" "!x!"') do @(
   set x=%%k
   cmd/v/c echo[!x:*]^^=!
  )
 )
)
>nul chcp 866
<$>"%file%" (
 for /f "delims=" %%i in ('find/n /v ""') do @(
  >nul chcp 1251
  set x=%%i& call set "x=%%x:$#$=?%%"& call set "x=%%x:$@$="%%"
  cmd/v/c echo[!x:*]^^=!
 )
)
del $
 
exit/b 0

@set n=sidorov ivan petrovitch
@for /f "delims=" %%i in ('powershell -c "[regex]::replace('%n%','\b\w',{$args[0].value.toUpper()})"') do @echo %%i
@pause>nul

@echo off&setlocal enabledelayedexpansion
set n=sidorov ivan petrovitch
 
for %%n in (%n%) do set "a=%%n"&for /f tokens^=4 %%i in ('2^>^&1 find "" "!a:~,1!.>"') do @set fn=!fn! %%~ni!a:~1!
echo !fn:~1!
pause>nul

echo sidorov ivan petrovitch|ssed -R "s/\b\S/\U&/g"