use constant FB_SPACE => sub { ' ' }; $bytes = encode($charset, $chars, FB_SPACE); #### 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