find(\&findit,'/path/to/highest/level/dir/you/need/to/start/from');

sub findit {
	/^your_regex$/ &&  ## your match regex would replace "your_regex"
	copy("$File::Find::name","/path/to/copy/location/$_")
}