https://perl.pythonprogramminghelp.com/3-shocking-to-b/