sub sms_encode {
    my $text = shift or return undef;
    my $new = from_utf8({-string => $text, -charset => 'ISO-8859-1'});
    return $new;
}