Perl tidied source is replaced only when it is different than the original content