Ok that didn't work I did something wrong...
Heres what I had
my $TEXT = "c:/test.txt";
open (TEXT, "$TEXT") or die "Can't open $TEXT: $!\n";
$TEXT = join ':', keys %{ { map +( $_ => 1 ), split( ':', $TEXT ) } };
close(TEXT);
It just spit out a blank text file.