https://123dok.net/document/q5m49mo7-learning-perl.html