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.