sub wanted { unlink $File::Find::name if $File::Find::name =~ /\.results$/ }
find(\&wanted, @directories);