open(DAT, "< test1.txt") || die("error1!");
@data=<DAT>;
close(DAT);

open(FILE, ">> test2.txt") || die("error2!");
foreach my $line (@data)
{
     my($a,$b) = split(':', $line);
     print FILE "$a:$b\n";
}
close(FILE);