lat="37.4192" lng="-122.0574" United States ID No: 1123631397

##</code><code>##

open (FILE,  "<:utf8", "input.txt");
my @lines = <FILE>;
my @uniq = ();
my @purge = ();
my %seen = ();

foreach $line (@lines) {
    my $id = $line =~ m/ID No: (\d+)/;
    if ($seen{$id}++){
        push (@uniq, $line);
        $new_uniq++;
        }
    else { 
        push (@purge, $line);
        }
open (MYFILE, ">:utf8", "data.txt");
print MYFILE @uniq;
open (PURGE, ">>:utf8", "purge.txt");
print PURGE @purge;