perl -e 'use warnings; use Encode; print SUBCHAR;'