for my $ff (@f) {
    if (! grep {$ff=~/\Q$_/} @wf){
        print "$ff\n";
    }
}