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

##</code><code>##

Encode::SUBCHAR
$SUBCHAR