上のをuudecodeして使え。

findでxargsして使えばほぼ希望どおりだろ。
perl詳しければ3分以下で書ける。

どうでもいいけどこのわけわかんない規制は
とまらんのか？