Hehe, it wouldn’t occur to me to use perl for that (or indeed for anything!). I’d probably rummage around for find or awk in that scenario, although I still have a lot to learn about those two tools.