print "[-] Cleaning...\n";
open(OUTPUT,">>cleaned.txt") or die "Can't open cleaned.txt!";
foreach $data (@file1) {
    ($w1) = split(/:/,$data);
    print OUTPUT $w1."\n" unless ($data =~ /-/);
}
close(OUTPUT) or die "close error";