Select Code to Download

@cleaned = @uncleaned[0, grep {@uncleaned[$i] ne @uncleaned[$i-1]} 1..
+$#uncleaded];