https://wp.jochen.hayek.name/blog-en/2013/11/14/changing-perl-code-i-inherited/