use warnings;

open A, '<', 'log.txt' || die $!;
open B, '>>', 'result.txt' || die $!;

while(<A>) {
	my(undef, $email, undef, undef, $pass) = split /:::/, $_;
	print B $email.":".$pass;
}

close A;
close B;