perl -MUnicode::Map -e'print Unicode::Map->new(shift)->to8(<>)'