This is well known in Perl as the Schwartz transform