my $Message = $_;

# Calculate Length of Message
my $MsgLgth = 18 + length $Message;

if ( $MsgLgth > 9 && $MsgLgth < 1_000_000 ) {
    $Message = sprintf "\x2%08d00000000%s\x3", $MsgLgth, $Message
    }
else{
    # Max length is 300_000
    # If hit here, too long ... by a LOT
    print "Formated Message exceeds MaxMessageLength\n\n";
    }
[download]