use File::Util;

unlink for grep { $_ =~ /xml$/i }
File::Util->new->list_dir('/your/directory', '--recurse');