http://blogs.perl.org/users/jared_martin/2020/04/pwc-055-task-1-flip-binary.html