my $msg = substr( $msg, 0, 50 ) . '-'
    if 50 < length $msg;