#!/usr/bin/perl

open(IN,"pwd.txt");
open(OUT,">pwds");
while(<IN>){ 
chomp;
if($_ ne ''){ 
($u,@undef)=split ':';
print OUT "$u:$u\n";
}
}
close(IN);
close(OUT);