replacement – Replace $ z z ^ * $ with $ | z | ^ 2 $

I have a long expression that involves different complex numbers. I want to force Mathematics to replace Conjugate[z] by ABS[z]^ 2 Without using polar coordinates in the whole expression. For example,

z w conjugate[z] Conjugate[w] + Conjugate[z] w + z ^ 2 

it should only be simplified & # 39; to

ABS[z]^ 2 Abs[w]^ 2 + Conjugate[z] w + z ^ 2