::@echo off
for %%P in (70-79\*.TRS) do (echo %%P >>file.lst)
for /f "tokens=1,2* delims=. " %%A in (file.lst) do (perl Process.pl %%A.in %%A.out)
del file.lst
pause

先将文件夹下所有文件作为清单列出来，再依次处理清单中的文件，把处理后的文件再放入原来文件夹下。

之所以列出文件清单，是为了避免重复处理原来文件夹下的文件。需要注意的是，每次处理完后都要删除file.lst。