急求perl 的急问题 在线等

unix环境
有个根文件夹 /in  下面有若干个子文件夹   每个子文件加下有批量txt文件

现对/in文件夹下的所有txt进行处理后  保存到 /saved下

但现在有个问题，就是/in 下面的子目录必须与/saved下的对应

比如 /in 下有两个子文件夹 20101010 与20101011

即/in/20101010  20101010文件夹下有1.txt  2.txt  3.txt
  /in/20101011   20101011文件夹下有1.txt  2.txt  3.txt

用find path -name \"*\" |grep .txt\$ > path/1.lst 因为find是遍历子目录的
所以会把/in下的两个文件夹下的txt文件全写到1.lst文件里  然后再读1.lst 进行处理
处理完后的txt文件是会加个时间戳 比如1.txt 处理完后  保存到saved里 变成1****.txt

要达到的效果，处理完后
saved根下 多了两个文件夹20101010  和20101011（之前saved没这两个文件夹）
并且20101010  和 20101011 下分别有自己对应的/in下的txt文件

即/saved/20101010  下包含1***.txt  2***.txt  ...
   /saved/20101011  下包含1***.txt  2***.txt  ...

望指教

顶上去