Select Code to Download

Select or download this

my $CharSet = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ012
+3456789'; # ASCII
my $BoldSet = '&#119834;&#119835;&#119836;&#119837;&#119838;&#119839;&
+#119840;&#119841;&#119842;&#119843;&#119844;&#119845;&#119846;&#11984
+7;&#119848;&#119849;&#119850;&#119851;&#119852;&#119853;&#119854;&#11
+9855;&#119856;&#119857;&#119858;&#119859;&#119808;&#119809;&#119810;&
+#119811;&#119812;&#119813;&#119814;&#119815;&#119816;&#119817;&#11981
+8;&#119819;&#119820;&#119821;&#119822;&#119823;&#119824;&#119825;&#11
+9826;&#119827;&#119828;&#119829;&#119830;&#119831;&#119832;&#119833;&
+#120782;&#120783;&#120784;&#120785;&#120786;&#120787;&#120788;&#12078
+9;&#120790;&#120791;'; # UniCode bold
...
$Target =~ tr/$CharSet/$BoldSet/;

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

Select or download this

The quick brown fox jumps over the lazy dog 1234567890 times.
Toe quick bdown fox jumps oved toe llzy dog 1234567890 times.

Select or download this

This is perl 5, version 26, subversion 3 (v5.26.3) built for x86_64-li
+nux-thread-multi
(with 51 registered patches, see perl -V for more detail)