my %pids;
{
    open(my $pids_fh, '<', $pids_qfn)
        or die("Can't open PIDS file \"$pids_qfn\": $!\n");

    while (<$pids_fh>) {
        my ($pid) = /\|(\d+)$/
            or next;
        ++$pids{$pid};
    }
}

open(my $fids_fh, '<', $fids_qfn)
    or die("Can't open FIDS file \"$fids_qfn\": $!\n");

while (<$fids_fh>) {
    my ($pid) = /^(\d+);/
        or next;
    print if $pids{$pid};
}