# opendir as above
foreach my $file ( grep /$mypattern/i, readdir $dh ) {
    my $path = "$dir/$file";
    unlink $path or die "Can't unlink '$path': $!\n";
}