perl -le 'print "\xa1"'

##</code><code>##

perl -CS -le 'print "\xa1"'