#!/usr/bin/perl

use File::Find;
use File::Path;

@ARGV = qw(.) unless @ARGV;

sub process_file {
    ((-d _) && /_vti_cnf/) && rmtree $File::Find::name;
}

find (\&process_file, @ARGV);