use strict;
use warnings;
use Encode;

binmode *STDOUT, 'utf8'; # Suppress "wide character" warnings

my $CharSet = 'a'; # ASCII
my $BoldSet = pack('U', 119834); # Unicode bold 'a'

my $Source = 'a';
my $trTarget = $Source;
my $reTarget = $Source;

$trTarget =~ tr/$CharSet/$BoldSet/;
$reTarget =~ s/$CharSet/$BoldSet/;

print "$Source\n$trTarget\n$reTarget\n";
print $BoldSet;