perl port of https://github.com/takai/tateno_is_good_man - View it on GitHub