丁度同じときに

変数を正規表現の中で使いたいけど変数自体に正規表現が入ってる話 - XXXannex
同じようなことを考えている人がいました。と思ったら1年前か・・・

というわけで、きっとそのうち

setlocal enabledelayedexpansion
echo off
for %%F in ("%~dp0*.hoge") do (
set SNAME=test
for %%I in ("%%~dpnF.*") do (
perl -e "use Encode;binmode STDOUT,':encoding(sjis)';$var1=Encode::decode('sjis','%%~nxI');$var2=Encode::decode('sjis','%%~nF');$var1=~s/\Q$var2\E/!SNAME!/i;print $var1;"
)
)
endlocal

のようななコードを使うことになるかと。
これで.plファイルを作らなくても長大な一文を書けばいいことに。
・・・通常のワンライナーはもっと効率よくコードを書くのでしょうが、僕はあとから見たときに確実に分らなくなる自信があるので冗長に書きます(w