Help for this page
input is: A0000.f BG_c22 ... A00AS.f BG_c52 A00DK.f BG_c5 A00F3.f BG_c14
#!/usr/bin/perl use strict; ... my $del= join '|', map quotemeta, @dels; my @arr1=grep !/$del/,@arr; print OUTFILE "@arr1\n";