use File::Util;

$f = File::Util->new();

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