#!/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);