##
use Encode qw( encode FB_DEFAULT );
use HTML::Entities qw( decode_entities );
use constant FB_SPACE => sub { ' ' };
my $chars = decode_entities('abc♥def');
my $charset = 'US-ASCII';
for my $check (FB_DEFAULT, FB_SPACE) {
print encode($charset, $chars, $check), "\n";
}
####
abc?def
abc def