my $foo = "\x{263A}";
$$ref =~ s/([^\n\r\t !\#\$%\'-;=?-~]|$foo)/$char2entity{$1} || num_entity($1)/ge;