perl -E'use Encode qw(encode);say encode("UTF-8", "\N{U+2588}")'