#!/usr/bin/perl
use warnings;
use strict;

my $SMSSendmailPath = "/usr/bin/gsgd";
my $SMSSendmailArguments = "--send ";
my $text = "ýáíé=drüben, Straße";
my $MaxSMSLength = "150";
#my $pad = "X"x4;


$text =~ tr/\x80-\xff/X/;

print(
       "$SMSSendmailPath",
       "$SMSSendmailArguments",
       "+4201234567 ",
       '"'.substr( $text, 0, $MaxSMSLength ).'"'
);