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";
}