Select Code to Download

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