@dis_dic = $f1_line;


##</code><code>##

index($f3_line, @apr_dic && @dis_dic)


##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

my ($approved_filename, $discarded_filename, $data_filename) = @ARGV;

my (@approved, @discarded);

open my $in_app, '<', $approved_filename or die $!;
push @approved, $_ while <$in_app>;
chomp @approved;

open my $in_disc, '<', $discarded_filename or die $!;
push @discarded, $_ while <$in_disc>;
chomp @discarded;

my $approved_re  = '\b(?:' . (join '|', @approved)  . ')\b';
my $discarded_re = '\b(?:' . (join '|', @discarded) . ')\b';


open my $in, '<', $data_filename or die $!;
while (<$in>) {
    if (/$approved_re/) {
        s/$discarded_re//g;
        print;
    }
}


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,