Re: Transform ASCII into UniCode

use utf8;
use Encode qw(encode decode);

my $CharSet = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ012
+3456789'; # ASCII
my $BoldSet = encode('utf8','&#119834;&#119835;&#119836;&#119837;&#119
+838;&#119839;&#119840;&#119841;&#119842;&#119843;&#119844;&#119845;&#
+119846;&#119847;&#119848;&#119849;&#119850;&#119851;&#119852;&#119853
+;&#119854;&#119855;&#119856;&#119857;&#119858;&#119859;&#119808;&#119
+809;&#119810;&#119811;&#119812;&#119813;&#119814;&#119815;&#119816;&#
+119817;&#119818;&#119819;&#119820;&#119821;&#119822;&#119823;&#119824
+;&#119825;&#119826;&#119827;&#119828;&#119829;&#119830;&#119831;&#119
+832;&#119833;&#120782;&#120783;&#120784;&#120785;&#120786;&#120787;&#
+120788;&#120789;&#120790;&#120791;');
my $Source = 'The quick brown fox jumps over the lazy dog 1234567890 t
+imes.';
my $Target = $Source;

$Target =~ tr/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123
+456789/&#119834;&#119835;&#119836;&#119837;&#119838;&#119839;&#119840
+;&#119841;&#119842;&#119843;&#119844;&#119845;&#119846;&#119847;&#119
+848;&#119849;&#119850;&#119851;&#119852;&#119853;&#119854;&#119855;&#
+119856;&#119857;&#119858;&#119859;&#119808;&#119809;&#119810;&#119811
+;&#119812;&#119813;&#119814;&#119815;&#119816;&#119817;&#119818;&#119
+819;&#119820;&#119821;&#119822;&#119823;&#119824;&#119825;&#119826;&#
+119827;&#119828;&#119829;&#119830;&#119831;&#119832;&#119833;&#120782
+;&#120783;&#120784;&#120785;&#120786;&#120787;&#120788;&#120789;&#120
+790;&#120791;/;

print "$Source\n$Target\n";

#The quick brown fox jumps over the lazy dog 1234567890 times. 
#&#119827;&#119841;&#119838; &#119850;&#119854;&#119842;&#119836;&#119
+844; &#119835;&#119851;&#119848;&#119856;&#119847; &#119839;&#119848;
+&#119857; &#119843;&#119854;&#119846;&#119849;&#119852; &#119848;&#11
+9855;&#119838;&#119851; &#119853;&#119841;&#119838; &#119845;&#119834
+;&#119859;&#119858; &#119837;&#119848;&#119840; &#120783;&#120784;&#1
+20785;&#120786;&#120787;&#120788;&#120789;&#120790;&#120791;&#120782;
+ &#119853;&#119842;&#119846;&#119838;&#119852;.
[download]
Blessings,
~Polyglot~
Comment on Re: Transform ASCII into UniCode Download Code

Your skill will accomplish what the force of many cannot
	PerlMonks