Convert text to unicode bold math chars etc

tobold.pl

#!/usr/bin/env perl

use warnings;
use strict;

use open qw/:std :utf8/;

use constant OFFSET => 119737;

my $string = <STDIN>;

print str_to_bold($string);

exit 0;

sub str_to_bold {
    my ($string) = @_;

    my $bold;

    foreach my $char (split(//, $string)) {
        my $cp     = ord($char);
        my $offset = do {
            if ($cp > 64 and $cp < 91) { OFFSET + 6}
            else                       { OFFSET }
        };

        if ($cp < 97 or $cp > 122) {
            $bold .= $char;
        } else {
            $bold .= chr($cp + $offset);
        }
    }

    return $bold;
}