Ah - many thanks! I must admit to being slightly puzzled by the requirement to untaint with File::Find, but waddaiknow?

As for the superfluous parentheses - yes, some tidying up is in order. At one point I was printing out various stuff during a debug, but thanks for the heads-up...