https://www.manu.co.in/substr-in-perl/