Perl version - https://github.com/melezhik/Sparrow6/blob/361cef4ad4bc1e4f23...