system('cls');

#################################

sub saveFile
{
	open(myFILE,">$_[0]") || die "error: $!";
	print myFILE $_[1];
	close(myFILE);
}

#################################

$res = '';
open myFILE, "<in.txt" or die $!;
while (<myFILE>) {
	chomp;
	@l = split(/:/,$_);
	
	print @l[3].':'.@l[2].':'.@l[0].':'.@l[1]."\n";
	$res.=@l[3].':'.@l[2].':'.@l[0].':'.@l[1]."\n";
	}
saveFile('out.txt',$res);
close myFILE;

__END__
(c)oded by eLWAux