#!/usr/bin/env perl

use strict;
use warnings;
use autodie ':all';
use constant {
    MATCH => 0,
    CHECK1 => 2,
    CHECK2 => 4,
    FLAG => 'SU LI IR ST',
    RECORD => 0,
    EXCLUDE => 1,
};

my $backup = 'pm_11115310_lines_BU.txt';
my $temp = 'pm_11115310_lines_TMP.txt';
my $input = 'pm_11115310_lines.txt';

`cp $backup $input`;

_print_data($input);

my (%seen, %exclude);

{
    open my $fh, '<', $input;

    while (<$fh>) {
        chomp;
        ++$exclude{$.} and next unless length;
        my @parts = split /;/, $_, 6;
        my $possible_exclude
            = $parts[CHECK1] eq FLAG && $parts[CHECK2] eq FLAG;

        if (exists $seen{$parts[MATCH]}) {
            if ($possible_exclude) {
                ++$exclude{$.};
            }
            else {
                if ($seen{$parts[MATCH]}[EXCLUDE]) {
                    ++$exclude{$seen{$parts[MATCH]}[RECORD]};
                    $seen{$parts[MATCH]}= [$., 0];
                }
            }
        }
        else {
            $seen{$parts[MATCH]} = [$., $possible_exclude];
        }
    }

    seek $fh, 0, 0;
    $. = 0;
    open my $tmp, '>', $temp;

    while (<$fh>) {
        next if $exclude{$.};
        print $tmp $_;
    }
}

`cp $temp $input`;

_print_data($input);

sub _print_data {
    my ($file) = @_;
    print '-' x 20, " $file ", '-' x 20, "\n";
    system cat => $file;
    print '-' x (42 + length $file), "\n";
}