地道にループ回すしかないのでは
たぶんリネーム関連はperlか何か使ったほうがラクじゃね？