>perl -e"use HTML::Entities qw( decode_entities ); printf('U+%04X', ord(decode_entities($ARGV[0])))" " "
U+00A0

>perl -e"use HTML::Entities qw( decode_entities ); printf('U+%04X', ord(decode_entities($ARGV[0])))" "∼"
U+223C