perl -Mopen=:std,:encoding(UTF-8)  -pe " y/\x{2018}\x{2019}\x{201B}\x{201C}\x{201D}\x{201F}/\x27\x27\x27\x22\x22\x22/; "        < input > output