perl is designed for this kind of thing. use it carefully, though--AFTER you back everything up!
#!/usr/bin/perl
use File::Find;
see 'man File::Find' (or perldoc 'File::Find') for the
full poop.
-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
Their is five errers in this sentance.

