> > ActivePerl+Win32::OLE最強伝説(`Д´)
> Perlは覚えにくいんだもん(ﾉД`､)
> さっきのｽｸﾘﾌﾟﾄをPerlで誰か書いてみてよ
> http://strange.kir.jp/stored/qwup4735.zip

#!/bin/sh
for filename in *.txt
do
  newfilename=`echo $filename|sed "s/.*\([0-9][0-9][0-9]\)\.txt/\1.txt/i"`
  cp $filename $newfilename
done

参考：2005/12/04(日)20時41分32秒