Help for this page

Select Code to Download

Select or download this

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