#!/usr/bin/perl

use strict;
use warnings;

open (PIDS, $ARGV[0]);
open (FIDS, $ARGV[1]);
open (OUTPUT, ">$ARGV[2]");

my @pids = <PIDS>;
my @fids = <FIDS>;
my @pidCans;
my @fidCans;
my $result;
my $pidCan;
my $fid;
my $pid;

foreach $pid (@pids) {

   $result = '';
   $pid =~ /\|(.*)$/;
   $result = $1;
   push (@pidCans, $result);
}


foreach $pidCan (@pidCans)  {

  chomp $pidCan;

    foreach $fid (@fids)  {
      chomp $fid;
      print "Comparing $fid to $pidCan" . "\n";
         if ($fid =~ /$pidCan/) {
         print "FOUND A MATCH.\n";
         print OUTPUT $fid . "\n";
         }
   }
}

close PIDS;
close FIDS;
close OUTPUT;