opendir (DIRHANDLE, "/path/of/dir") or die "Cannot open directory $!\n";
unlink grep (/$mypattern/i, readdir DIRHANDLE);
closedir DIRHANDLE;