findで十分じゃん。perlとか書く必要ないのに。