Improve keyword stripping: grab first set of word chars (instead of stripping all spaces)

1 files changed, 2 insertions, 2 deletions

diff --git a/localmarkdown2sms b/localmarkdown2sms
index d4d5720..06aa589 100755
--- a/localmarkdown2sms
+++ b/localmarkdown2sms
@@ -47,8 +47,8 @@ my ($path) = shift @ARGV;
 my ($phone) = shift @ARGV;
 my ($key) = lc (shift @ARGV);
 
-# strip leading (and non-leading if ever possible?) spaces
-$key =~ s/\s//g;
+# strip non-word chars from keyword (and use only first chunk of word chars)
+$key =~ s/.*?(\w+).*?/$1/;
 
 if ($debug) {
 	Log::Log4perl->easy_init($DEBUG);