open LIST,$file;
open OUTPUT,">>",'cleaned.txt';
print "[-] Cleaning...\n";
while (<LIST>) {
    ($w1) = split(/:/,$_);
    print OUTPUT $w1."\n" unless ($data =~ /-/);

}
close LIST;
close OUTPUT;