https://devhubby.com/thread/how-to-escape-special-characters-in-perl