#!/usr/bin/env perl -l

use strict;
use warnings;
use autodie;

use Text::CSV;

my $input_file = 'pm_1153098_match_csv_lines_input.csv';
my $pattern_file = 'pm_1153098_match_csv_lines_pattern.txt';

my %match_pattern;
open my $pat_fh, '<', $pattern_file;
while (<$pat_fh>) {
    chomp;
    ++$match_pattern{$_};
} 
close $pat_fh;

my $csv = Text::CSV::->new({sep_char => '|'});
open my $in_fh, '<', $input_file;
while (my $row = $csv->getline($in_fh)) {
    print $row->[1] if $match_pattern{$row->[1]};
}
close $in_fh;

##</code><code>##

$ cat pm_1153098_match_csv_lines_input.csv
David@domain.com|David@domain.com|J|ABBASS, DAVID JOHN|
Cory@domain.com|Cory@domain.com|E|ABBOTT, CORY J|
Tania@domain.com|Tania@domain.com|F|ABBOTT, TANIA LEE|
Geoffrey@domain.com|Geoffrey@domain.com|N|ABBOTT, GEOFFREY BRYAN|

##</code><code>##

$ cat pm_1153098_match_csv_lines_pattern.txt
Randall@domain.com
David@domain.com
Rob@domain.com
Tania@domain.com

##</code><code>##

$ pm_1153098_match_csv_lines.pl
David@domain.com
Tania@domain.com