opendir(my $dh, './dir') || die "opendir: $!";
unlink map { "./dir/$_" } grep { /$mypattern/i } readdir $dh;
closedir $dh;