#!/usr/bin/perl

use warnings;
use strict;

my $upload = "/var/tmp/work/upload";
my $work = "/var/tmp/work/STAP-domain_clean_project";
my $input3 = "$upload/domain.csv";

system ("dos2unix $input3");

open (IN,"$input3");
open (OUT,">>$work/local.rules");
while (<IN>) {
        chomp();

        if ($_ =~ /^.+\.([A-Za-z0-9-_]+\.[A-Za-z]{2,})$/){
        my @array = $1;
        my %seen = ();
        my @unique = grep { ! $seen{ @array }++ } @array;
                print "@unique\n";
        }
}