https://www.manu.co.in/how-to-remove-last-character-from-a-string-in-perl/